{-# LANGUAGE DataKinds #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-duplicate-exports #-} {-# OPTIONS_GHC -fno-warn-name-shadowing #-} {-# OPTIONS_GHC -fno-warn-unused-binds #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | -- Module : Gogol.DFAReporting.Accounts.Patch -- Copyright : (c) 2015-2025 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Toni Cebrián -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Updates an existing account. This method supports patch semantics. -- -- /See:/ for @dfareporting.accounts.patch@. module Gogol.DFAReporting.Accounts.Patch ( -- * Resource DFAReportingAccountsPatchResource, -- ** Constructing a Request DFAReportingAccountsPatch (..), newDFAReportingAccountsPatch, ) where import Gogol.DFAReporting.Types import Gogol.Prelude qualified as Core -- | A resource alias for @dfareporting.accounts.patch@ method which the -- 'DFAReportingAccountsPatch' request conforms to. type DFAReportingAccountsPatchResource = "dfareporting" Core.:> "v4" Core.:> "userprofiles" Core.:> Core.Capture "profileId" Core.Int64 Core.:> "accounts" Core.:> Core.QueryParam "id" Core.Int64 Core.:> Core.QueryParam "$.xgafv" Xgafv Core.:> Core.QueryParam "access_token" Core.Text Core.:> Core.QueryParam "callback" Core.Text Core.:> Core.QueryParam "uploadType" Core.Text Core.:> Core.QueryParam "upload_protocol" Core.Text Core.:> Core.QueryParam "alt" Core.AltJSON Core.:> Core.ReqBody '[Core.JSON] Account Core.:> Core.Patch '[Core.JSON] Account -- | Updates an existing account. This method supports patch semantics. -- -- /See:/ 'newDFAReportingAccountsPatch' smart constructor. data DFAReportingAccountsPatch = DFAReportingAccountsPatch { -- | V1 error format. xgafv :: (Core.Maybe Xgafv), -- | OAuth access token. accessToken :: (Core.Maybe Core.Text), -- | JSONP callback :: (Core.Maybe Core.Text), -- | Required. Account ID. id :: Core.Int64, -- | Multipart request metadata. payload :: Account, -- | User profile ID associated with this request. profileId :: Core.Int64, -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). uploadType :: (Core.Maybe Core.Text), -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). uploadProtocol :: (Core.Maybe Core.Text) } deriving (Core.Eq, Core.Show, Core.Generic) -- | Creates a value of 'DFAReportingAccountsPatch' with the minimum fields required to make a request. newDFAReportingAccountsPatch :: -- | Required. Account ID. See 'id'. Core.Int64 -> -- | Multipart request metadata. See 'payload'. Account -> -- | User profile ID associated with this request. See 'profileId'. Core.Int64 -> DFAReportingAccountsPatch newDFAReportingAccountsPatch id payload profileId = DFAReportingAccountsPatch { xgafv = Core.Nothing, accessToken = Core.Nothing, callback = Core.Nothing, id = id, payload = payload, profileId = profileId, uploadType = Core.Nothing, uploadProtocol = Core.Nothing } instance Core.GoogleRequest DFAReportingAccountsPatch where type Rs DFAReportingAccountsPatch = Account type Scopes DFAReportingAccountsPatch = '[Dfatrafficking'FullControl] requestClient DFAReportingAccountsPatch {..} = go profileId (Core.Just id) xgafv accessToken callback uploadType uploadProtocol (Core.Just Core.AltJSON) payload dFAReportingService where go = Core.buildClient (Core.Proxy :: Core.Proxy DFAReportingAccountsPatchResource) Core.mempty