diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,12 +8,12 @@ ## Version -`0.5.0` +`1.0.0` ## Description -A client library for the Google Stackdriver Debugger. +A client library for the Google Cloud Debugger API (Deprecated). ## Contribute diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,2 +1,3 @@ -import Distribution.Simple +import Distribution.Simple + main = defaultMain diff --git a/gen/Gogol/Debugger.hs b/gen/Gogol/Debugger.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger.hs @@ -0,0 +1,239 @@ +{-# 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.Debugger +-- 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) +-- +-- Examines the call stack and variables of a running application without stopping or slowing it down. (Deprecated) +-- +-- /See:/ +module Gogol.Debugger + ( -- * Configuration + debuggerService, + + -- * OAuth Scopes + CloudPlatform'FullControl, + CloudDebugger'FullControl, + + -- * Resources + + -- ** clouddebugger.controller.debuggees.breakpoints.list + ClouddebuggerControllerDebuggeesBreakpointsListResource, + ClouddebuggerControllerDebuggeesBreakpointsList (..), + newClouddebuggerControllerDebuggeesBreakpointsList, + + -- ** clouddebugger.controller.debuggees.breakpoints.update + ClouddebuggerControllerDebuggeesBreakpointsUpdateResource, + ClouddebuggerControllerDebuggeesBreakpointsUpdate (..), + newClouddebuggerControllerDebuggeesBreakpointsUpdate, + + -- ** clouddebugger.controller.debuggees.register + ClouddebuggerControllerDebuggeesRegisterResource, + ClouddebuggerControllerDebuggeesRegister (..), + newClouddebuggerControllerDebuggeesRegister, + + -- ** clouddebugger.debugger.debuggees.breakpoints.delete + ClouddebuggerDebuggerDebuggeesBreakpointsDeleteResource, + ClouddebuggerDebuggerDebuggeesBreakpointsDelete (..), + newClouddebuggerDebuggerDebuggeesBreakpointsDelete, + + -- ** clouddebugger.debugger.debuggees.breakpoints.get + ClouddebuggerDebuggerDebuggeesBreakpointsGetResource, + ClouddebuggerDebuggerDebuggeesBreakpointsGet (..), + newClouddebuggerDebuggerDebuggeesBreakpointsGet, + + -- ** clouddebugger.debugger.debuggees.breakpoints.list + ClouddebuggerDebuggerDebuggeesBreakpointsListResource, + ClouddebuggerDebuggerDebuggeesBreakpointsList (..), + newClouddebuggerDebuggerDebuggeesBreakpointsList, + + -- ** clouddebugger.debugger.debuggees.breakpoints.set + ClouddebuggerDebuggerDebuggeesBreakpointsSetResource, + ClouddebuggerDebuggerDebuggeesBreakpointsSet (..), + newClouddebuggerDebuggerDebuggeesBreakpointsSet, + + -- ** clouddebugger.debugger.debuggees.list + ClouddebuggerDebuggerDebuggeesListResource, + ClouddebuggerDebuggerDebuggeesList (..), + newClouddebuggerDebuggerDebuggeesList, + + -- * Types + + -- ** Xgafv + Xgafv (..), + + -- ** AliasContext + AliasContext (..), + newAliasContext, + + -- ** AliasContext_Kind + AliasContext_Kind (..), + + -- ** Breakpoint + Breakpoint (..), + newBreakpoint, + + -- ** Breakpoint_Action + Breakpoint_Action (..), + + -- ** Breakpoint_Labels + Breakpoint_Labels (..), + newBreakpoint_Labels, + + -- ** Breakpoint_LogLevel + Breakpoint_LogLevel (..), + + -- ** Breakpoint_State + Breakpoint_State (..), + + -- ** CloudRepoSourceContext + CloudRepoSourceContext (..), + newCloudRepoSourceContext, + + -- ** CloudWorkspaceId + CloudWorkspaceId (..), + newCloudWorkspaceId, + + -- ** CloudWorkspaceSourceContext + CloudWorkspaceSourceContext (..), + newCloudWorkspaceSourceContext, + + -- ** Debuggee + Debuggee (..), + newDebuggee, + + -- ** Debuggee_CanaryMode + Debuggee_CanaryMode (..), + + -- ** Debuggee_Labels + Debuggee_Labels (..), + newDebuggee_Labels, + + -- ** Empty + Empty (..), + newEmpty, + + -- ** ExtendedSourceContext + ExtendedSourceContext (..), + newExtendedSourceContext, + + -- ** ExtendedSourceContext_Labels + ExtendedSourceContext_Labels (..), + newExtendedSourceContext_Labels, + + -- ** FormatMessage + FormatMessage (..), + newFormatMessage, + + -- ** GerritSourceContext + GerritSourceContext (..), + newGerritSourceContext, + + -- ** GetBreakpointResponse + GetBreakpointResponse (..), + newGetBreakpointResponse, + + -- ** GitSourceContext + GitSourceContext (..), + newGitSourceContext, + + -- ** ListActiveBreakpointsResponse + ListActiveBreakpointsResponse (..), + newListActiveBreakpointsResponse, + + -- ** ListBreakpointsResponse + ListBreakpointsResponse (..), + newListBreakpointsResponse, + + -- ** ListDebuggeesResponse + ListDebuggeesResponse (..), + newListDebuggeesResponse, + + -- ** ProjectRepoId + ProjectRepoId (..), + newProjectRepoId, + + -- ** RegisterDebuggeeRequest + RegisterDebuggeeRequest (..), + newRegisterDebuggeeRequest, + + -- ** RegisterDebuggeeResponse + RegisterDebuggeeResponse (..), + newRegisterDebuggeeResponse, + + -- ** RepoId + RepoId (..), + newRepoId, + + -- ** SetBreakpointResponse + SetBreakpointResponse (..), + newSetBreakpointResponse, + + -- ** SourceContext + SourceContext (..), + newSourceContext, + + -- ** SourceLocation + SourceLocation (..), + newSourceLocation, + + -- ** StackFrame + StackFrame (..), + newStackFrame, + + -- ** StatusMessage + StatusMessage (..), + newStatusMessage, + + -- ** StatusMessage_RefersTo + StatusMessage_RefersTo (..), + + -- ** UpdateActiveBreakpointRequest + UpdateActiveBreakpointRequest (..), + newUpdateActiveBreakpointRequest, + + -- ** UpdateActiveBreakpointResponse + UpdateActiveBreakpointResponse (..), + newUpdateActiveBreakpointResponse, + + -- ** Variable + Variable (..), + newVariable, + + -- ** DebuggerDebuggeesBreakpointsListActionValue + DebuggerDebuggeesBreakpointsListActionValue (..), + + -- ** DebuggerDebuggeesBreakpointsSetCanaryOption + DebuggerDebuggeesBreakpointsSetCanaryOption (..), + ) +where + +import Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.List +import Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.Update +import Gogol.Debugger.Clouddebugger.Controller.Debuggees.Register +import Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Delete +import Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Get +import Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.List +import Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Set +import Gogol.Debugger.Clouddebugger.Debugger.Debuggees.List +import Gogol.Debugger.Types diff --git a/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/List.hs b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/List.hs @@ -0,0 +1,135 @@ +{-# 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.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.List +-- 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) +-- +-- Returns the list of all active breakpoints for the debuggee. The breakpoint specification (@location@, @condition@, and @expressions@ fields) is semantically immutable, although the field values may change. For example, an agent may update the location line number to reflect the actual line where the breakpoint was set, but this doesn\'t change the breakpoint semantics. This means that an agent does not need to check if a breakpoint has changed when it encounters the same breakpoint on a successive call. Moreover, an agent should remember the breakpoints that are completed until the controller removes them from the active list to avoid setting those breakpoints again. +-- +-- /See:/ for @clouddebugger.controller.debuggees.breakpoints.list@. +module Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.List + ( -- * Resource + ClouddebuggerControllerDebuggeesBreakpointsListResource, + + -- ** Constructing a Request + ClouddebuggerControllerDebuggeesBreakpointsList (..), + newClouddebuggerControllerDebuggeesBreakpointsList, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.controller.debuggees.breakpoints.list@ method which the +-- 'ClouddebuggerControllerDebuggeesBreakpointsList' request conforms to. +type ClouddebuggerControllerDebuggeesBreakpointsListResource = + "v2" + Core.:> "controller" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "agentId" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "successOnTimeout" Core.Bool + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "waitToken" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListActiveBreakpointsResponse + +-- | Returns the list of all active breakpoints for the debuggee. The breakpoint specification (@location@, @condition@, and @expressions@ fields) is semantically immutable, although the field values may change. For example, an agent may update the location line number to reflect the actual line where the breakpoint was set, but this doesn\'t change the breakpoint semantics. This means that an agent does not need to check if a breakpoint has changed when it encounters the same breakpoint on a successive call. Moreover, an agent should remember the breakpoints that are completed until the controller removes them from the active list to avoid setting those breakpoints again. +-- +-- /See:/ 'newClouddebuggerControllerDebuggeesBreakpointsList' smart constructor. +data ClouddebuggerControllerDebuggeesBreakpointsList = ClouddebuggerControllerDebuggeesBreakpointsList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | Identifies the agent. This is the ID returned in the RegisterDebuggee response. + agentId :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. Identifies the debuggee. + debuggeeId :: Core.Text, + -- | If set to @true@ (recommended), returns @google.rpc.Code.OK@ status and sets the @wait_expired@ response field to @true@ when the server-selected timeout has expired. If set to @false@ (deprecated), returns @google.rpc.Code.ABORTED@ status when the server-selected timeout has expired. + successOnTimeout :: (Core.Maybe Core.Bool), + -- | 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), + -- | A token that, if specified, blocks the method call until the list of active breakpoints has changed, or a server-selected timeout has expired. The value should be set from the @next_wait_token@ field in the last response. The initial value should be set to @\"init\"@. + waitToken :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ClouddebuggerControllerDebuggeesBreakpointsList' with the minimum fields required to make a request. +newClouddebuggerControllerDebuggeesBreakpointsList :: + -- | Required. Identifies the debuggee. See 'debuggeeId'. + Core.Text -> + ClouddebuggerControllerDebuggeesBreakpointsList +newClouddebuggerControllerDebuggeesBreakpointsList debuggeeId = + ClouddebuggerControllerDebuggeesBreakpointsList + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + agentId = Core.Nothing, + callback = Core.Nothing, + debuggeeId = debuggeeId, + successOnTimeout = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing, + waitToken = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerControllerDebuggeesBreakpointsList + where + type + Rs ClouddebuggerControllerDebuggeesBreakpointsList = + ListActiveBreakpointsResponse + type + Scopes ClouddebuggerControllerDebuggeesBreakpointsList = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerControllerDebuggeesBreakpointsList {..} = + go + debuggeeId + xgafv + accessToken + agentId + callback + successOnTimeout + uploadType + uploadProtocol + waitToken + (Core.Just Core.AltJSON) + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerControllerDebuggeesBreakpointsListResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/Update.hs b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Breakpoints/Update.hs @@ -0,0 +1,138 @@ +{-# 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.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.Update +-- 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 the breakpoint state or mutable fields. The entire Breakpoint message must be sent back to the controller service. Updates to active breakpoint fields are only allowed if the new value does not change the breakpoint specification. Updates to the @location@, @condition@ and @expressions@ fields should not alter the breakpoint semantics. These may only make changes such as canonicalizing a value or snapping the location to the correct line of code. +-- +-- /See:/ for @clouddebugger.controller.debuggees.breakpoints.update@. +module Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.Update + ( -- * Resource + ClouddebuggerControllerDebuggeesBreakpointsUpdateResource, + + -- ** Constructing a Request + ClouddebuggerControllerDebuggeesBreakpointsUpdate (..), + newClouddebuggerControllerDebuggeesBreakpointsUpdate, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.controller.debuggees.breakpoints.update@ method which the +-- 'ClouddebuggerControllerDebuggeesBreakpointsUpdate' request conforms to. +type ClouddebuggerControllerDebuggeesBreakpointsUpdateResource = + "v2" + Core.:> "controller" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> Core.Capture "id" Core.Text + 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] UpdateActiveBreakpointRequest + Core.:> Core.Put '[Core.JSON] UpdateActiveBreakpointResponse + +-- | Updates the breakpoint state or mutable fields. The entire Breakpoint message must be sent back to the controller service. Updates to active breakpoint fields are only allowed if the new value does not change the breakpoint specification. Updates to the @location@, @condition@ and @expressions@ fields should not alter the breakpoint semantics. These may only make changes such as canonicalizing a value or snapping the location to the correct line of code. +-- +-- /See:/ 'newClouddebuggerControllerDebuggeesBreakpointsUpdate' smart constructor. +data ClouddebuggerControllerDebuggeesBreakpointsUpdate = ClouddebuggerControllerDebuggeesBreakpointsUpdate + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. Identifies the debuggee being debugged. + debuggeeId :: Core.Text, + -- | Breakpoint identifier, unique in the scope of the debuggee. + id :: Core.Text, + -- | Multipart request metadata. + payload :: UpdateActiveBreakpointRequest, + -- | 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 'ClouddebuggerControllerDebuggeesBreakpointsUpdate' with the minimum fields required to make a request. +newClouddebuggerControllerDebuggeesBreakpointsUpdate :: + -- | Required. Identifies the debuggee being debugged. See 'debuggeeId'. + Core.Text -> + -- | Breakpoint identifier, unique in the scope of the debuggee. See 'id'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + UpdateActiveBreakpointRequest -> + ClouddebuggerControllerDebuggeesBreakpointsUpdate +newClouddebuggerControllerDebuggeesBreakpointsUpdate + debuggeeId + id + payload = + ClouddebuggerControllerDebuggeesBreakpointsUpdate + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + debuggeeId = debuggeeId, + id = id, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerControllerDebuggeesBreakpointsUpdate + where + type + Rs ClouddebuggerControllerDebuggeesBreakpointsUpdate = + UpdateActiveBreakpointResponse + type + Scopes ClouddebuggerControllerDebuggeesBreakpointsUpdate = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerControllerDebuggeesBreakpointsUpdate {..} = + go + debuggeeId + id + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy + ClouddebuggerControllerDebuggeesBreakpointsUpdateResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Register.hs b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Register.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Controller/Debuggees/Register.hs @@ -0,0 +1,119 @@ +{-# 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.Debugger.Clouddebugger.Controller.Debuggees.Register +-- 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) +-- +-- Registers the debuggee with the controller service. All agents attached to the same application must call this method with exactly the same request content to get back the same stable @debuggee_id@. Agents should call this method again whenever @google.rpc.Code.NOT_FOUND@ is returned from any controller method. This protocol allows the controller service to disable debuggees, recover from data loss, or change the @debuggee_id@ format. Agents must handle @debuggee_id@ value changing upon re-registration. +-- +-- /See:/ for @clouddebugger.controller.debuggees.register@. +module Gogol.Debugger.Clouddebugger.Controller.Debuggees.Register + ( -- * Resource + ClouddebuggerControllerDebuggeesRegisterResource, + + -- ** Constructing a Request + ClouddebuggerControllerDebuggeesRegister (..), + newClouddebuggerControllerDebuggeesRegister, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.controller.debuggees.register@ method which the +-- 'ClouddebuggerControllerDebuggeesRegister' request conforms to. +type ClouddebuggerControllerDebuggeesRegisterResource = + "v2" + Core.:> "controller" + Core.:> "debuggees" + Core.:> "register" + 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] RegisterDebuggeeRequest + Core.:> Core.Post '[Core.JSON] RegisterDebuggeeResponse + +-- | Registers the debuggee with the controller service. All agents attached to the same application must call this method with exactly the same request content to get back the same stable @debuggee_id@. Agents should call this method again whenever @google.rpc.Code.NOT_FOUND@ is returned from any controller method. This protocol allows the controller service to disable debuggees, recover from data loss, or change the @debuggee_id@ format. Agents must handle @debuggee_id@ value changing upon re-registration. +-- +-- /See:/ 'newClouddebuggerControllerDebuggeesRegister' smart constructor. +data ClouddebuggerControllerDebuggeesRegister = ClouddebuggerControllerDebuggeesRegister + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Multipart request metadata. + payload :: RegisterDebuggeeRequest, + -- | 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 'ClouddebuggerControllerDebuggeesRegister' with the minimum fields required to make a request. +newClouddebuggerControllerDebuggeesRegister :: + -- | Multipart request metadata. See 'payload'. + RegisterDebuggeeRequest -> + ClouddebuggerControllerDebuggeesRegister +newClouddebuggerControllerDebuggeesRegister payload = + ClouddebuggerControllerDebuggeesRegister + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerControllerDebuggeesRegister + where + type + Rs ClouddebuggerControllerDebuggeesRegister = + RegisterDebuggeeResponse + type + Scopes ClouddebuggerControllerDebuggeesRegister = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerControllerDebuggeesRegister {..} = + go + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerControllerDebuggeesRegisterResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Delete.hs b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Delete.hs @@ -0,0 +1,132 @@ +{-# 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.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Delete +-- 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) +-- +-- Deletes the breakpoint from the debuggee. +-- +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.delete@. +module Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Delete + ( -- * Resource + ClouddebuggerDebuggerDebuggeesBreakpointsDeleteResource, + + -- ** Constructing a Request + ClouddebuggerDebuggerDebuggeesBreakpointsDelete (..), + newClouddebuggerDebuggerDebuggeesBreakpointsDelete, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.delete@ method which the +-- 'ClouddebuggerDebuggerDebuggeesBreakpointsDelete' request conforms to. +type ClouddebuggerDebuggerDebuggeesBreakpointsDeleteResource = + "v2" + Core.:> "debugger" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> Core.Capture "breakpointId" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "clientVersion" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Delete '[Core.JSON] Empty + +-- | Deletes the breakpoint from the debuggee. +-- +-- /See:/ 'newClouddebuggerDebuggerDebuggeesBreakpointsDelete' smart constructor. +data ClouddebuggerDebuggerDebuggeesBreakpointsDelete = ClouddebuggerDebuggerDebuggeesBreakpointsDelete + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | Required. ID of the breakpoint to delete. + breakpointId :: Core.Text, + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The client version making the call. Schema: @domain\/type\/version@ (e.g., @google.com\/intellij\/v1@). + clientVersion :: (Core.Maybe Core.Text), + -- | Required. ID of the debuggee whose breakpoint to delete. + debuggeeId :: Core.Text, + -- | 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 'ClouddebuggerDebuggerDebuggeesBreakpointsDelete' with the minimum fields required to make a request. +newClouddebuggerDebuggerDebuggeesBreakpointsDelete :: + -- | Required. ID of the breakpoint to delete. See 'breakpointId'. + Core.Text -> + -- | Required. ID of the debuggee whose breakpoint to delete. See 'debuggeeId'. + Core.Text -> + ClouddebuggerDebuggerDebuggeesBreakpointsDelete +newClouddebuggerDebuggerDebuggeesBreakpointsDelete + breakpointId + debuggeeId = + ClouddebuggerDebuggerDebuggeesBreakpointsDelete + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + breakpointId = breakpointId, + callback = Core.Nothing, + clientVersion = Core.Nothing, + debuggeeId = debuggeeId, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerDebuggerDebuggeesBreakpointsDelete + where + type Rs ClouddebuggerDebuggerDebuggeesBreakpointsDelete = Empty + type + Scopes ClouddebuggerDebuggerDebuggeesBreakpointsDelete = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerDebuggerDebuggeesBreakpointsDelete {..} = + go + debuggeeId + breakpointId + xgafv + accessToken + callback + clientVersion + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerDebuggerDebuggeesBreakpointsDeleteResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Get.hs b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Get.hs @@ -0,0 +1,134 @@ +{-# 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.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Get +-- 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) +-- +-- Gets breakpoint information. +-- +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.get@. +module Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Get + ( -- * Resource + ClouddebuggerDebuggerDebuggeesBreakpointsGetResource, + + -- ** Constructing a Request + ClouddebuggerDebuggerDebuggeesBreakpointsGet (..), + newClouddebuggerDebuggerDebuggeesBreakpointsGet, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.get@ method which the +-- 'ClouddebuggerDebuggerDebuggeesBreakpointsGet' request conforms to. +type ClouddebuggerDebuggerDebuggeesBreakpointsGetResource = + "v2" + Core.:> "debugger" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> Core.Capture "breakpointId" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "clientVersion" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] GetBreakpointResponse + +-- | Gets breakpoint information. +-- +-- /See:/ 'newClouddebuggerDebuggerDebuggeesBreakpointsGet' smart constructor. +data ClouddebuggerDebuggerDebuggeesBreakpointsGet = ClouddebuggerDebuggerDebuggeesBreakpointsGet + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | Required. ID of the breakpoint to get. + breakpointId :: Core.Text, + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The client version making the call. Schema: @domain\/type\/version@ (e.g., @google.com\/intellij\/v1@). + clientVersion :: (Core.Maybe Core.Text), + -- | Required. ID of the debuggee whose breakpoint to get. + debuggeeId :: Core.Text, + -- | 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 'ClouddebuggerDebuggerDebuggeesBreakpointsGet' with the minimum fields required to make a request. +newClouddebuggerDebuggerDebuggeesBreakpointsGet :: + -- | Required. ID of the breakpoint to get. See 'breakpointId'. + Core.Text -> + -- | Required. ID of the debuggee whose breakpoint to get. See 'debuggeeId'. + Core.Text -> + ClouddebuggerDebuggerDebuggeesBreakpointsGet +newClouddebuggerDebuggerDebuggeesBreakpointsGet + breakpointId + debuggeeId = + ClouddebuggerDebuggerDebuggeesBreakpointsGet + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + breakpointId = breakpointId, + callback = Core.Nothing, + clientVersion = Core.Nothing, + debuggeeId = debuggeeId, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerDebuggerDebuggeesBreakpointsGet + where + type + Rs ClouddebuggerDebuggerDebuggeesBreakpointsGet = + GetBreakpointResponse + type + Scopes ClouddebuggerDebuggerDebuggeesBreakpointsGet = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerDebuggerDebuggeesBreakpointsGet {..} = + go + debuggeeId + breakpointId + xgafv + accessToken + callback + clientVersion + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerDebuggerDebuggeesBreakpointsGetResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/List.hs b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/List.hs @@ -0,0 +1,152 @@ +{-# 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.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.List +-- 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) +-- +-- Lists all breakpoints for the debuggee. +-- +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.list@. +module Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.List + ( -- * Resource + ClouddebuggerDebuggerDebuggeesBreakpointsListResource, + + -- ** Constructing a Request + ClouddebuggerDebuggerDebuggeesBreakpointsList (..), + newClouddebuggerDebuggerDebuggeesBreakpointsList, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.list@ method which the +-- 'ClouddebuggerDebuggerDebuggeesBreakpointsList' request conforms to. +type ClouddebuggerDebuggerDebuggeesBreakpointsListResource = + "v2" + Core.:> "debugger" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam + "action.value" + DebuggerDebuggeesBreakpointsListActionValue + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "clientVersion" Core.Text + Core.:> Core.QueryParam "includeAllUsers" Core.Bool + Core.:> Core.QueryParam "includeInactive" Core.Bool + Core.:> Core.QueryParam "stripResults" Core.Bool + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "waitToken" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListBreakpointsResponse + +-- | Lists all breakpoints for the debuggee. +-- +-- /See:/ 'newClouddebuggerDebuggerDebuggeesBreakpointsList' smart constructor. +data ClouddebuggerDebuggerDebuggeesBreakpointsList = ClouddebuggerDebuggerDebuggeesBreakpointsList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | Only breakpoints with the specified action will pass the filter. + actionValue :: (Core.Maybe DebuggerDebuggeesBreakpointsListActionValue), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The client version making the call. Schema: @domain\/type\/version@ (e.g., @google.com\/intellij\/v1@). + clientVersion :: (Core.Maybe Core.Text), + -- | Required. ID of the debuggee whose breakpoints to list. + debuggeeId :: Core.Text, + -- | When set to @true@, the response includes the list of breakpoints set by any user. Otherwise, it includes only breakpoints set by the caller. + includeAllUsers :: (Core.Maybe Core.Bool), + -- | When set to @true@, the response includes active and inactive breakpoints. Otherwise, it includes only active breakpoints. + includeInactive :: (Core.Maybe Core.Bool), + -- | This field is deprecated. The following fields are always stripped out of the result: @stack_frames@, @evaluated_expressions@ and @variable_table@. + stripResults :: (Core.Maybe Core.Bool), + -- | 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), + -- | A wait token that, if specified, blocks the call until the breakpoints list has changed, or a server selected timeout has expired. The value should be set from the last response. The error code @google.rpc.Code.ABORTED@ (RPC) is returned on wait timeout, which should be called again with the same @wait_token@. + waitToken :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ClouddebuggerDebuggerDebuggeesBreakpointsList' with the minimum fields required to make a request. +newClouddebuggerDebuggerDebuggeesBreakpointsList :: + -- | Required. ID of the debuggee whose breakpoints to list. See 'debuggeeId'. + Core.Text -> + ClouddebuggerDebuggerDebuggeesBreakpointsList +newClouddebuggerDebuggerDebuggeesBreakpointsList debuggeeId = + ClouddebuggerDebuggerDebuggeesBreakpointsList + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + actionValue = Core.Nothing, + callback = Core.Nothing, + clientVersion = Core.Nothing, + debuggeeId = debuggeeId, + includeAllUsers = Core.Nothing, + includeInactive = Core.Nothing, + stripResults = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing, + waitToken = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerDebuggerDebuggeesBreakpointsList + where + type + Rs ClouddebuggerDebuggerDebuggeesBreakpointsList = + ListBreakpointsResponse + type + Scopes ClouddebuggerDebuggerDebuggeesBreakpointsList = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerDebuggerDebuggeesBreakpointsList {..} = + go + debuggeeId + xgafv + accessToken + actionValue + callback + clientVersion + includeAllUsers + includeInactive + stripResults + uploadType + uploadProtocol + waitToken + (Core.Just Core.AltJSON) + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerDebuggerDebuggeesBreakpointsListResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Set.hs b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Set.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/Breakpoints/Set.hs @@ -0,0 +1,140 @@ +{-# 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.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Set +-- 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) +-- +-- Sets the breakpoint to the debuggee. +-- +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.set@. +module Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Set + ( -- * Resource + ClouddebuggerDebuggerDebuggeesBreakpointsSetResource, + + -- ** Constructing a Request + ClouddebuggerDebuggerDebuggeesBreakpointsSet (..), + newClouddebuggerDebuggerDebuggeesBreakpointsSet, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.set@ method which the +-- 'ClouddebuggerDebuggerDebuggeesBreakpointsSet' request conforms to. +type ClouddebuggerDebuggerDebuggeesBreakpointsSetResource = + "v2" + Core.:> "debugger" + Core.:> "debuggees" + Core.:> Core.Capture "debuggeeId" Core.Text + Core.:> "breakpoints" + Core.:> "set" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam + "canaryOption" + DebuggerDebuggeesBreakpointsSetCanaryOption + Core.:> Core.QueryParam "clientVersion" 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] Breakpoint + Core.:> Core.Post '[Core.JSON] SetBreakpointResponse + +-- | Sets the breakpoint to the debuggee. +-- +-- /See:/ 'newClouddebuggerDebuggerDebuggeesBreakpointsSet' smart constructor. +data ClouddebuggerDebuggerDebuggeesBreakpointsSet = ClouddebuggerDebuggerDebuggeesBreakpointsSet + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | The canary option set by the user upon setting breakpoint. + canaryOption :: (Core.Maybe DebuggerDebuggeesBreakpointsSetCanaryOption), + -- | Required. The client version making the call. Schema: @domain\/type\/version@ (e.g., @google.com\/intellij\/v1@). + clientVersion :: (Core.Maybe Core.Text), + -- | Required. ID of the debuggee where the breakpoint is to be set. + debuggeeId :: Core.Text, + -- | Multipart request metadata. + payload :: Breakpoint, + -- | 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 'ClouddebuggerDebuggerDebuggeesBreakpointsSet' with the minimum fields required to make a request. +newClouddebuggerDebuggerDebuggeesBreakpointsSet :: + -- | Required. ID of the debuggee where the breakpoint is to be set. See 'debuggeeId'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + Breakpoint -> + ClouddebuggerDebuggerDebuggeesBreakpointsSet +newClouddebuggerDebuggerDebuggeesBreakpointsSet debuggeeId payload = + ClouddebuggerDebuggerDebuggeesBreakpointsSet + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + canaryOption = Core.Nothing, + clientVersion = Core.Nothing, + debuggeeId = debuggeeId, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + ClouddebuggerDebuggerDebuggeesBreakpointsSet + where + type + Rs ClouddebuggerDebuggerDebuggeesBreakpointsSet = + SetBreakpointResponse + type + Scopes ClouddebuggerDebuggerDebuggeesBreakpointsSet = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerDebuggerDebuggeesBreakpointsSet {..} = + go + debuggeeId + xgafv + accessToken + callback + canaryOption + clientVersion + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerDebuggerDebuggeesBreakpointsSetResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/List.hs b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Clouddebugger/Debugger/Debuggees/List.hs @@ -0,0 +1,121 @@ +{-# 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.Debugger.Clouddebugger.Debugger.Debuggees.List +-- 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) +-- +-- Lists all the debuggees that the user has access to. +-- +-- /See:/ for @clouddebugger.debugger.debuggees.list@. +module Gogol.Debugger.Clouddebugger.Debugger.Debuggees.List + ( -- * Resource + ClouddebuggerDebuggerDebuggeesListResource, + + -- ** Constructing a Request + ClouddebuggerDebuggerDebuggeesList (..), + newClouddebuggerDebuggerDebuggeesList, + ) +where + +import Gogol.Debugger.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @clouddebugger.debugger.debuggees.list@ method which the +-- 'ClouddebuggerDebuggerDebuggeesList' request conforms to. +type ClouddebuggerDebuggerDebuggeesListResource = + "v2" + Core.:> "debugger" + Core.:> "debuggees" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "clientVersion" Core.Text + Core.:> Core.QueryParam "includeInactive" Core.Bool + Core.:> Core.QueryParam "project" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListDebuggeesResponse + +-- | Lists all the debuggees that the user has access to. +-- +-- /See:/ 'newClouddebuggerDebuggerDebuggeesList' smart constructor. +data ClouddebuggerDebuggerDebuggeesList = ClouddebuggerDebuggerDebuggeesList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The client version making the call. Schema: @domain\/type\/version@ (e.g., @google.com\/intellij\/v1@). + clientVersion :: (Core.Maybe Core.Text), + -- | When set to @true@, the result includes all debuggees. Otherwise, the result includes only debuggees that are active. + includeInactive :: (Core.Maybe Core.Bool), + -- | Required. Project number of a Google Cloud project whose debuggees to list. + project :: (Core.Maybe Core.Text), + -- | 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 'ClouddebuggerDebuggerDebuggeesList' with the minimum fields required to make a request. +newClouddebuggerDebuggerDebuggeesList :: + ClouddebuggerDebuggerDebuggeesList +newClouddebuggerDebuggerDebuggeesList = + ClouddebuggerDebuggerDebuggeesList + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + clientVersion = Core.Nothing, + includeInactive = Core.Nothing, + project = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest ClouddebuggerDebuggerDebuggeesList where + type Rs ClouddebuggerDebuggerDebuggeesList = ListDebuggeesResponse + type + Scopes ClouddebuggerDebuggerDebuggeesList = + '[CloudPlatform'FullControl, CloudDebugger'FullControl] + requestClient ClouddebuggerDebuggerDebuggeesList {..} = + go + xgafv + accessToken + callback + clientVersion + includeInactive + project + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + debuggerService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy ClouddebuggerDebuggerDebuggeesListResource + ) + Core.mempty diff --git a/gen/Gogol/Debugger/Internal/Product.hs b/gen/Gogol/Debugger/Internal/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Internal/Product.hs @@ -0,0 +1,1368 @@ +{-# 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.Debugger.Internal.Product +-- 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) +module Gogol.Debugger.Internal.Product + ( -- * AliasContext + AliasContext (..), + newAliasContext, + + -- * Breakpoint + Breakpoint (..), + newBreakpoint, + + -- * Breakpoint_Labels + Breakpoint_Labels (..), + newBreakpoint_Labels, + + -- * CloudRepoSourceContext + CloudRepoSourceContext (..), + newCloudRepoSourceContext, + + -- * CloudWorkspaceId + CloudWorkspaceId (..), + newCloudWorkspaceId, + + -- * CloudWorkspaceSourceContext + CloudWorkspaceSourceContext (..), + newCloudWorkspaceSourceContext, + + -- * Debuggee + Debuggee (..), + newDebuggee, + + -- * Debuggee_Labels + Debuggee_Labels (..), + newDebuggee_Labels, + + -- * Empty + Empty (..), + newEmpty, + + -- * ExtendedSourceContext + ExtendedSourceContext (..), + newExtendedSourceContext, + + -- * ExtendedSourceContext_Labels + ExtendedSourceContext_Labels (..), + newExtendedSourceContext_Labels, + + -- * FormatMessage + FormatMessage (..), + newFormatMessage, + + -- * GerritSourceContext + GerritSourceContext (..), + newGerritSourceContext, + + -- * GetBreakpointResponse + GetBreakpointResponse (..), + newGetBreakpointResponse, + + -- * GitSourceContext + GitSourceContext (..), + newGitSourceContext, + + -- * ListActiveBreakpointsResponse + ListActiveBreakpointsResponse (..), + newListActiveBreakpointsResponse, + + -- * ListBreakpointsResponse + ListBreakpointsResponse (..), + newListBreakpointsResponse, + + -- * ListDebuggeesResponse + ListDebuggeesResponse (..), + newListDebuggeesResponse, + + -- * ProjectRepoId + ProjectRepoId (..), + newProjectRepoId, + + -- * RegisterDebuggeeRequest + RegisterDebuggeeRequest (..), + newRegisterDebuggeeRequest, + + -- * RegisterDebuggeeResponse + RegisterDebuggeeResponse (..), + newRegisterDebuggeeResponse, + + -- * RepoId + RepoId (..), + newRepoId, + + -- * SetBreakpointResponse + SetBreakpointResponse (..), + newSetBreakpointResponse, + + -- * SourceContext + SourceContext (..), + newSourceContext, + + -- * SourceLocation + SourceLocation (..), + newSourceLocation, + + -- * StackFrame + StackFrame (..), + newStackFrame, + + -- * StatusMessage + StatusMessage (..), + newStatusMessage, + + -- * UpdateActiveBreakpointRequest + UpdateActiveBreakpointRequest (..), + newUpdateActiveBreakpointRequest, + + -- * UpdateActiveBreakpointResponse + UpdateActiveBreakpointResponse (..), + newUpdateActiveBreakpointResponse, + + -- * Variable + Variable (..), + newVariable, + ) +where + +import Gogol.Debugger.Internal.Sum +import Gogol.Prelude qualified as Core + +-- | An alias to a repo revision. +-- +-- /See:/ 'newAliasContext' smart constructor. +data AliasContext = AliasContext + { -- | The alias kind. + kind :: (Core.Maybe AliasContext_Kind), + -- | The alias name. + name :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'AliasContext' with the minimum fields required to make a request. +newAliasContext :: + AliasContext +newAliasContext = + AliasContext {kind = Core.Nothing, name = Core.Nothing} + +instance Core.FromJSON AliasContext where + parseJSON = + Core.withObject + "AliasContext" + ( \o -> + AliasContext + Core.<$> (o Core..:? "kind") + Core.<*> (o Core..:? "name") + ) + +instance Core.ToJSON AliasContext where + toJSON AliasContext {..} = + Core.object + ( Core.catMaybes + [("kind" Core..=) Core.<$> kind, ("name" Core..=) Core.<$> name] + ) + +-- | ------------------------------------------------------------------------------ ## Breakpoint (the resource) Represents the breakpoint specification, status and results. +-- +-- /See:/ 'newBreakpoint' smart constructor. +data Breakpoint = Breakpoint + { -- | Action that the agent should perform when the code at the breakpoint location is hit. + action :: (Core.Maybe Breakpoint_Action), + -- | The deadline for the breakpoint to stay in CANARY/ACTIVE state. The value is meaningless when the breakpoint is not in CANARY/ACTIVE state. + canaryExpireTime :: (Core.Maybe Core.DateTime), + -- | Condition that triggers the breakpoint. The condition is a compound boolean expression composed using expressions in a programming language at the source location. + condition :: (Core.Maybe Core.Text), + -- | Time this breakpoint was created by the server in seconds resolution. + createTime :: (Core.Maybe Core.DateTime), + -- | Values of evaluated expressions at breakpoint time. The evaluated expressions appear in exactly the same order they are listed in the @expressions@ field. The @name@ field holds the original expression text, the @value@ or @members@ field holds the result of the evaluated expression. If the expression cannot be evaluated, the @status@ inside the @Variable@ will indicate an error and contain the error text. + evaluatedExpressions :: (Core.Maybe [Variable]), + -- | List of read-only expressions to evaluate at the breakpoint location. The expressions are composed using expressions in the programming language at the source location. If the breakpoint action is @LOG@, the evaluated expressions are included in log statements. + expressions :: (Core.Maybe [Core.Text]), + -- | Time this breakpoint was finalized as seen by the server in seconds resolution. + finalTime :: (Core.Maybe Core.DateTime), + -- | Breakpoint identifier, unique in the scope of the debuggee. + id :: (Core.Maybe Core.Text), + -- | When true, indicates that this is a final result and the breakpoint state will not change from here on. + isFinalState :: (Core.Maybe Core.Bool), + -- | A set of custom breakpoint properties, populated by the agent, to be displayed to the user. + labels :: (Core.Maybe Breakpoint_Labels), + -- | Breakpoint source location. + location :: (Core.Maybe SourceLocation), + -- | Indicates the severity of the log. Only relevant when action is @LOG@. + logLevel :: (Core.Maybe Breakpoint_LogLevel), + -- | Only relevant when action is @LOG@. Defines the message to log when the breakpoint hits. The message may include parameter placeholders @$0@, @$1@, etc. These placeholders are replaced with the evaluated value of the appropriate expression. Expressions not referenced in @log_message_format@ are not logged. Example: @Message received, id = $0, count = $1@ with @expressions@ = @[ message.id, message.count ]@. + logMessageFormat :: (Core.Maybe Core.Text), + -- | The stack at breakpoint time, where stack_frames[0] represents the most recently entered function. + stackFrames :: (Core.Maybe [StackFrame]), + -- | The current state of the breakpoint. + state :: (Core.Maybe Breakpoint_State), + -- | Breakpoint status. The status includes an error flag and a human readable message. This field is usually unset. The message can be either informational or an error message. Regardless, clients should always display the text message back to the user. Error status indicates complete failure of the breakpoint. Example (non-final state): @Still loading symbols...@ Examples (final state): * @Invalid line number@ referring to location * @Field f not found in class C@ referring to condition + status :: (Core.Maybe StatusMessage), + -- | E-mail address of the user that created this breakpoint + userEmail :: (Core.Maybe Core.Text), + -- | The @variable_table@ exists to aid with computation, memory and network traffic optimization. It enables storing a variable once and reference it from multiple variables, including variables stored in the @variable_table@ itself. For example, the same @this@ object, which may appear at many levels of the stack, can have all of its data stored once in this table. The stack frame variables then would hold only a reference to it. The variable @var_table_index@ field is an index into this repeated field. The stored objects are nameless and get their name from the referencing variable. The effective variable is a merge of the referencing variable and the referenced variable. + variableTable :: (Core.Maybe [Variable]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Breakpoint' with the minimum fields required to make a request. +newBreakpoint :: + Breakpoint +newBreakpoint = + Breakpoint + { action = Core.Nothing, + canaryExpireTime = Core.Nothing, + condition = Core.Nothing, + createTime = Core.Nothing, + evaluatedExpressions = Core.Nothing, + expressions = Core.Nothing, + finalTime = Core.Nothing, + id = Core.Nothing, + isFinalState = Core.Nothing, + labels = Core.Nothing, + location = Core.Nothing, + logLevel = Core.Nothing, + logMessageFormat = Core.Nothing, + stackFrames = Core.Nothing, + state = Core.Nothing, + status = Core.Nothing, + userEmail = Core.Nothing, + variableTable = Core.Nothing + } + +instance Core.FromJSON Breakpoint where + parseJSON = + Core.withObject + "Breakpoint" + ( \o -> + Breakpoint + Core.<$> (o Core..:? "action") + Core.<*> (o Core..:? "canaryExpireTime") + Core.<*> (o Core..:? "condition") + Core.<*> (o Core..:? "createTime") + Core.<*> (o Core..:? "evaluatedExpressions") + Core.<*> (o Core..:? "expressions") + Core.<*> (o Core..:? "finalTime") + Core.<*> (o Core..:? "id") + Core.<*> (o Core..:? "isFinalState") + Core.<*> (o Core..:? "labels") + Core.<*> (o Core..:? "location") + Core.<*> (o Core..:? "logLevel") + Core.<*> (o Core..:? "logMessageFormat") + Core.<*> (o Core..:? "stackFrames") + Core.<*> (o Core..:? "state") + Core.<*> (o Core..:? "status") + Core.<*> (o Core..:? "userEmail") + Core.<*> (o Core..:? "variableTable") + ) + +instance Core.ToJSON Breakpoint where + toJSON Breakpoint {..} = + Core.object + ( Core.catMaybes + [ ("action" Core..=) Core.<$> action, + ("canaryExpireTime" Core..=) Core.<$> canaryExpireTime, + ("condition" Core..=) Core.<$> condition, + ("createTime" Core..=) Core.<$> createTime, + ("evaluatedExpressions" Core..=) Core.<$> evaluatedExpressions, + ("expressions" Core..=) Core.<$> expressions, + ("finalTime" Core..=) Core.<$> finalTime, + ("id" Core..=) Core.<$> id, + ("isFinalState" Core..=) Core.<$> isFinalState, + ("labels" Core..=) Core.<$> labels, + ("location" Core..=) Core.<$> location, + ("logLevel" Core..=) Core.<$> logLevel, + ("logMessageFormat" Core..=) Core.<$> logMessageFormat, + ("stackFrames" Core..=) Core.<$> stackFrames, + ("state" Core..=) Core.<$> state, + ("status" Core..=) Core.<$> status, + ("userEmail" Core..=) Core.<$> userEmail, + ("variableTable" Core..=) Core.<$> variableTable + ] + ) + +-- | A set of custom breakpoint properties, populated by the agent, to be displayed to the user. +-- +-- /See:/ 'newBreakpoint_Labels' smart constructor. +newtype Breakpoint_Labels = Breakpoint_Labels + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Breakpoint_Labels' with the minimum fields required to make a request. +newBreakpoint_Labels :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + Breakpoint_Labels +newBreakpoint_Labels additional = + Breakpoint_Labels {additional = additional} + +instance Core.FromJSON Breakpoint_Labels where + parseJSON = + Core.withObject + "Breakpoint_Labels" + (\o -> Breakpoint_Labels Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON Breakpoint_Labels where + toJSON Breakpoint_Labels {..} = Core.toJSON additional + +-- | A CloudRepoSourceContext denotes a particular revision in a cloud repo (a repo hosted by the Google Cloud Platform). +-- +-- /See:/ 'newCloudRepoSourceContext' smart constructor. +data CloudRepoSourceContext = CloudRepoSourceContext + { -- | An alias, which may be a branch or tag. + aliasContext :: (Core.Maybe AliasContext), + -- | The name of an alias (branch, tag, etc.). + aliasName :: (Core.Maybe Core.Text), + -- | The ID of the repo. + repoId :: (Core.Maybe RepoId), + -- | A revision ID. + revisionId :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudRepoSourceContext' with the minimum fields required to make a request. +newCloudRepoSourceContext :: + CloudRepoSourceContext +newCloudRepoSourceContext = + CloudRepoSourceContext + { aliasContext = Core.Nothing, + aliasName = Core.Nothing, + repoId = Core.Nothing, + revisionId = Core.Nothing + } + +instance Core.FromJSON CloudRepoSourceContext where + parseJSON = + Core.withObject + "CloudRepoSourceContext" + ( \o -> + CloudRepoSourceContext + Core.<$> (o Core..:? "aliasContext") + Core.<*> (o Core..:? "aliasName") + Core.<*> (o Core..:? "repoId") + Core.<*> (o Core..:? "revisionId") + ) + +instance Core.ToJSON CloudRepoSourceContext where + toJSON CloudRepoSourceContext {..} = + Core.object + ( Core.catMaybes + [ ("aliasContext" Core..=) Core.<$> aliasContext, + ("aliasName" Core..=) Core.<$> aliasName, + ("repoId" Core..=) Core.<$> repoId, + ("revisionId" Core..=) Core.<$> revisionId + ] + ) + +-- | A CloudWorkspaceId is a unique identifier for a cloud workspace. A cloud workspace is a place associated with a repo where modified files can be stored before they are committed. +-- +-- /See:/ 'newCloudWorkspaceId' smart constructor. +data CloudWorkspaceId = CloudWorkspaceId + { -- | The unique name of the workspace within the repo. This is the name chosen by the client in the Source API\'s CreateWorkspace method. + name :: (Core.Maybe Core.Text), + -- | The ID of the repo containing the workspace. + repoId :: (Core.Maybe RepoId) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudWorkspaceId' with the minimum fields required to make a request. +newCloudWorkspaceId :: + CloudWorkspaceId +newCloudWorkspaceId = + CloudWorkspaceId {name = Core.Nothing, repoId = Core.Nothing} + +instance Core.FromJSON CloudWorkspaceId where + parseJSON = + Core.withObject + "CloudWorkspaceId" + ( \o -> + CloudWorkspaceId + Core.<$> (o Core..:? "name") + Core.<*> (o Core..:? "repoId") + ) + +instance Core.ToJSON CloudWorkspaceId where + toJSON CloudWorkspaceId {..} = + Core.object + ( Core.catMaybes + [ ("name" Core..=) Core.<$> name, + ("repoId" Core..=) Core.<$> repoId + ] + ) + +-- | A CloudWorkspaceSourceContext denotes a workspace at a particular snapshot. +-- +-- /See:/ 'newCloudWorkspaceSourceContext' smart constructor. +data CloudWorkspaceSourceContext = CloudWorkspaceSourceContext + { -- | The ID of the snapshot. An empty snapshot_id refers to the most recent snapshot. + snapshotId :: (Core.Maybe Core.Text), + -- | The ID of the workspace. + workspaceId :: (Core.Maybe CloudWorkspaceId) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudWorkspaceSourceContext' with the minimum fields required to make a request. +newCloudWorkspaceSourceContext :: + CloudWorkspaceSourceContext +newCloudWorkspaceSourceContext = + CloudWorkspaceSourceContext + { snapshotId = Core.Nothing, + workspaceId = Core.Nothing + } + +instance Core.FromJSON CloudWorkspaceSourceContext where + parseJSON = + Core.withObject + "CloudWorkspaceSourceContext" + ( \o -> + CloudWorkspaceSourceContext + Core.<$> (o Core..:? "snapshotId") + Core.<*> (o Core..:? "workspaceId") + ) + +instance Core.ToJSON CloudWorkspaceSourceContext where + toJSON CloudWorkspaceSourceContext {..} = + Core.object + ( Core.catMaybes + [ ("snapshotId" Core..=) Core.<$> snapshotId, + ("workspaceId" Core..=) Core.<$> workspaceId + ] + ) + +-- | Represents the debugged application. The application may include one or more replicated processes executing the same code. Each of these processes is attached with a debugger agent, carrying out the debugging commands. Agents attached to the same debuggee identify themselves as such by using exactly the same Debuggee message value when registering. +-- +-- /See:/ 'newDebuggee' smart constructor. +data Debuggee = Debuggee + { -- | Version ID of the agent. Schema: @domain\/language-platform\/vmajor.minor@ (for example @google.com\/java-gcp\/v1.1@). + agentVersion :: (Core.Maybe Core.Text), + -- | Used when setting breakpoint canary for this debuggee. + canaryMode :: (Core.Maybe Debuggee_CanaryMode), + -- | Human readable description of the debuggee. Including a human-readable project name, environment name and version information is recommended. + description :: (Core.Maybe Core.Text), + -- | References to the locations and revisions of the source code used in the deployed application. + extSourceContexts :: (Core.Maybe [ExtendedSourceContext]), + -- | Unique identifier for the debuggee generated by the controller service. + id :: (Core.Maybe Core.Text), + -- | If set to @true@, indicates that the agent should disable itself and detach from the debuggee. + isDisabled :: (Core.Maybe Core.Bool), + -- | If set to @true@, indicates that Controller service does not detect any activity from the debuggee agents and the application is possibly stopped. + isInactive :: (Core.Maybe Core.Bool), + -- | A set of custom debuggee properties, populated by the agent, to be displayed to the user. + labels :: (Core.Maybe Debuggee_Labels), + -- | Project the debuggee is associated with. Use project number or id when registering a Google Cloud Platform project. + project :: (Core.Maybe Core.Text), + -- | References to the locations and revisions of the source code used in the deployed application. + sourceContexts :: (Core.Maybe [SourceContext]), + -- | Human readable message to be displayed to the user about this debuggee. Absence of this field indicates no status. The message can be either informational or an error status. + status :: (Core.Maybe StatusMessage), + -- | Uniquifier to further distinguish the application. It is possible that different applications might have identical values in the debuggee message, thus, incorrectly identified as a single application by the Controller service. This field adds salt to further distinguish the application. Agents should consider seeding this field with value that identifies the code, binary, configuration and environment. + uniquifier :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Debuggee' with the minimum fields required to make a request. +newDebuggee :: + Debuggee +newDebuggee = + Debuggee + { agentVersion = Core.Nothing, + canaryMode = Core.Nothing, + description = Core.Nothing, + extSourceContexts = Core.Nothing, + id = Core.Nothing, + isDisabled = Core.Nothing, + isInactive = Core.Nothing, + labels = Core.Nothing, + project = Core.Nothing, + sourceContexts = Core.Nothing, + status = Core.Nothing, + uniquifier = Core.Nothing + } + +instance Core.FromJSON Debuggee where + parseJSON = + Core.withObject + "Debuggee" + ( \o -> + Debuggee + Core.<$> (o Core..:? "agentVersion") + Core.<*> (o Core..:? "canaryMode") + Core.<*> (o Core..:? "description") + Core.<*> (o Core..:? "extSourceContexts") + Core.<*> (o Core..:? "id") + Core.<*> (o Core..:? "isDisabled") + Core.<*> (o Core..:? "isInactive") + Core.<*> (o Core..:? "labels") + Core.<*> (o Core..:? "project") + Core.<*> (o Core..:? "sourceContexts") + Core.<*> (o Core..:? "status") + Core.<*> (o Core..:? "uniquifier") + ) + +instance Core.ToJSON Debuggee where + toJSON Debuggee {..} = + Core.object + ( Core.catMaybes + [ ("agentVersion" Core..=) Core.<$> agentVersion, + ("canaryMode" Core..=) Core.<$> canaryMode, + ("description" Core..=) Core.<$> description, + ("extSourceContexts" Core..=) Core.<$> extSourceContexts, + ("id" Core..=) Core.<$> id, + ("isDisabled" Core..=) Core.<$> isDisabled, + ("isInactive" Core..=) Core.<$> isInactive, + ("labels" Core..=) Core.<$> labels, + ("project" Core..=) Core.<$> project, + ("sourceContexts" Core..=) Core.<$> sourceContexts, + ("status" Core..=) Core.<$> status, + ("uniquifier" Core..=) Core.<$> uniquifier + ] + ) + +-- | A set of custom debuggee properties, populated by the agent, to be displayed to the user. +-- +-- /See:/ 'newDebuggee_Labels' smart constructor. +newtype Debuggee_Labels = Debuggee_Labels + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Debuggee_Labels' with the minimum fields required to make a request. +newDebuggee_Labels :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + Debuggee_Labels +newDebuggee_Labels additional = + Debuggee_Labels {additional = additional} + +instance Core.FromJSON Debuggee_Labels where + parseJSON = + Core.withObject + "Debuggee_Labels" + (\o -> Debuggee_Labels Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON Debuggee_Labels where + toJSON Debuggee_Labels {..} = Core.toJSON additional + +-- | A generic empty message that you can re-use to avoid defining duplicated empty messages in your APIs. A typical example is to use it as the request or the response type of an API method. For instance: service Foo { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } +-- +-- /See:/ 'newEmpty' smart constructor. +data Empty = Empty + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Empty' with the minimum fields required to make a request. +newEmpty :: + Empty +newEmpty = Empty + +instance Core.FromJSON Empty where + parseJSON = Core.withObject "Empty" (\o -> Core.pure Empty) + +instance Core.ToJSON Empty where + toJSON = Core.const Core.emptyObject + +-- | An ExtendedSourceContext is a SourceContext combined with additional details describing the context. +-- +-- /See:/ 'newExtendedSourceContext' smart constructor. +data ExtendedSourceContext = ExtendedSourceContext + { -- | Any source context. + context :: (Core.Maybe SourceContext), + -- | Labels with user defined metadata. + labels :: (Core.Maybe ExtendedSourceContext_Labels) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ExtendedSourceContext' with the minimum fields required to make a request. +newExtendedSourceContext :: + ExtendedSourceContext +newExtendedSourceContext = + ExtendedSourceContext + { context = Core.Nothing, + labels = Core.Nothing + } + +instance Core.FromJSON ExtendedSourceContext where + parseJSON = + Core.withObject + "ExtendedSourceContext" + ( \o -> + ExtendedSourceContext + Core.<$> (o Core..:? "context") + Core.<*> (o Core..:? "labels") + ) + +instance Core.ToJSON ExtendedSourceContext where + toJSON ExtendedSourceContext {..} = + Core.object + ( Core.catMaybes + [ ("context" Core..=) Core.<$> context, + ("labels" Core..=) Core.<$> labels + ] + ) + +-- | Labels with user defined metadata. +-- +-- /See:/ 'newExtendedSourceContext_Labels' smart constructor. +newtype ExtendedSourceContext_Labels = ExtendedSourceContext_Labels + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ExtendedSourceContext_Labels' with the minimum fields required to make a request. +newExtendedSourceContext_Labels :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + ExtendedSourceContext_Labels +newExtendedSourceContext_Labels additional = + ExtendedSourceContext_Labels {additional = additional} + +instance Core.FromJSON ExtendedSourceContext_Labels where + parseJSON = + Core.withObject + "ExtendedSourceContext_Labels" + ( \o -> + ExtendedSourceContext_Labels Core.<$> (Core.parseJSONObject o) + ) + +instance Core.ToJSON ExtendedSourceContext_Labels where + toJSON ExtendedSourceContext_Labels {..} = Core.toJSON additional + +-- | Represents a message with parameters. +-- +-- /See:/ 'newFormatMessage' smart constructor. +data FormatMessage = FormatMessage + { -- | Format template for the message. The @format@ uses placeholders @$0@, @$1@, etc. to reference parameters. @$$@ can be used to denote the @$@ character. Examples: * @Failed to load \'$0\' which helps debug $1 the first time it is loaded. Again, $0 is very important.@ * @Please pay $$10 to use $0 instead of $1.@ + format :: (Core.Maybe Core.Text), + -- | Optional parameters to be embedded into the message. + parameters :: (Core.Maybe [Core.Text]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'FormatMessage' with the minimum fields required to make a request. +newFormatMessage :: + FormatMessage +newFormatMessage = + FormatMessage {format = Core.Nothing, parameters = Core.Nothing} + +instance Core.FromJSON FormatMessage where + parseJSON = + Core.withObject + "FormatMessage" + ( \o -> + FormatMessage + Core.<$> (o Core..:? "format") + Core.<*> (o Core..:? "parameters") + ) + +instance Core.ToJSON FormatMessage where + toJSON FormatMessage {..} = + Core.object + ( Core.catMaybes + [ ("format" Core..=) Core.<$> format, + ("parameters" Core..=) Core.<$> parameters + ] + ) + +-- | A SourceContext referring to a Gerrit project. +-- +-- /See:/ 'newGerritSourceContext' smart constructor. +data GerritSourceContext = GerritSourceContext + { -- | An alias, which may be a branch or tag. + aliasContext :: (Core.Maybe AliasContext), + -- | The name of an alias (branch, tag, etc.). + aliasName :: (Core.Maybe Core.Text), + -- | The full project name within the host. Projects may be nested, so \"project\/subproject\" is a valid project name. The \"repo name\" is hostURI\/project. + gerritProject :: (Core.Maybe Core.Text), + -- | The URI of a running Gerrit instance. + hostUri :: (Core.Maybe Core.Text), + -- | A revision (commit) ID. + revisionId :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'GerritSourceContext' with the minimum fields required to make a request. +newGerritSourceContext :: + GerritSourceContext +newGerritSourceContext = + GerritSourceContext + { aliasContext = Core.Nothing, + aliasName = Core.Nothing, + gerritProject = Core.Nothing, + hostUri = Core.Nothing, + revisionId = Core.Nothing + } + +instance Core.FromJSON GerritSourceContext where + parseJSON = + Core.withObject + "GerritSourceContext" + ( \o -> + GerritSourceContext + Core.<$> (o Core..:? "aliasContext") + Core.<*> (o Core..:? "aliasName") + Core.<*> (o Core..:? "gerritProject") + Core.<*> (o Core..:? "hostUri") + Core.<*> (o Core..:? "revisionId") + ) + +instance Core.ToJSON GerritSourceContext where + toJSON GerritSourceContext {..} = + Core.object + ( Core.catMaybes + [ ("aliasContext" Core..=) Core.<$> aliasContext, + ("aliasName" Core..=) Core.<$> aliasName, + ("gerritProject" Core..=) Core.<$> gerritProject, + ("hostUri" Core..=) Core.<$> hostUri, + ("revisionId" Core..=) Core.<$> revisionId + ] + ) + +-- | Response for getting breakpoint information. +-- +-- /See:/ 'newGetBreakpointResponse' smart constructor. +newtype GetBreakpointResponse = GetBreakpointResponse + { -- | Complete breakpoint state. The fields @id@ and @location@ are guaranteed to be set. + breakpoint :: (Core.Maybe Breakpoint) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'GetBreakpointResponse' with the minimum fields required to make a request. +newGetBreakpointResponse :: + GetBreakpointResponse +newGetBreakpointResponse = + GetBreakpointResponse {breakpoint = Core.Nothing} + +instance Core.FromJSON GetBreakpointResponse where + parseJSON = + Core.withObject + "GetBreakpointResponse" + (\o -> GetBreakpointResponse Core.<$> (o Core..:? "breakpoint")) + +instance Core.ToJSON GetBreakpointResponse where + toJSON GetBreakpointResponse {..} = + Core.object + (Core.catMaybes [("breakpoint" Core..=) Core.<$> breakpoint]) + +-- | A GitSourceContext denotes a particular revision in a third party Git repository (e.g. GitHub). +-- +-- /See:/ 'newGitSourceContext' smart constructor. +data GitSourceContext = GitSourceContext + { -- | Git commit hash. required. + revisionId :: (Core.Maybe Core.Text), + -- | Git repository URL. + url :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'GitSourceContext' with the minimum fields required to make a request. +newGitSourceContext :: + GitSourceContext +newGitSourceContext = + GitSourceContext {revisionId = Core.Nothing, url = Core.Nothing} + +instance Core.FromJSON GitSourceContext where + parseJSON = + Core.withObject + "GitSourceContext" + ( \o -> + GitSourceContext + Core.<$> (o Core..:? "revisionId") + Core.<*> (o Core..:? "url") + ) + +instance Core.ToJSON GitSourceContext where + toJSON GitSourceContext {..} = + Core.object + ( Core.catMaybes + [ ("revisionId" Core..=) Core.<$> revisionId, + ("url" Core..=) Core.<$> url + ] + ) + +-- | Response for listing active breakpoints. +-- +-- /See:/ 'newListActiveBreakpointsResponse' smart constructor. +data ListActiveBreakpointsResponse = ListActiveBreakpointsResponse + { -- | List of all active breakpoints. The fields @id@ and @location@ are guaranteed to be set on each breakpoint. + breakpoints :: (Core.Maybe [Breakpoint]), + -- | A token that can be used in the next method call to block until the list of breakpoints changes. + nextWaitToken :: (Core.Maybe Core.Text), + -- | If set to @true@, indicates that there is no change to the list of active breakpoints and the server-selected timeout has expired. The @breakpoints@ field would be empty and should be ignored. + waitExpired :: (Core.Maybe Core.Bool) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListActiveBreakpointsResponse' with the minimum fields required to make a request. +newListActiveBreakpointsResponse :: + ListActiveBreakpointsResponse +newListActiveBreakpointsResponse = + ListActiveBreakpointsResponse + { breakpoints = Core.Nothing, + nextWaitToken = Core.Nothing, + waitExpired = Core.Nothing + } + +instance Core.FromJSON ListActiveBreakpointsResponse where + parseJSON = + Core.withObject + "ListActiveBreakpointsResponse" + ( \o -> + ListActiveBreakpointsResponse + Core.<$> (o Core..:? "breakpoints") + Core.<*> (o Core..:? "nextWaitToken") + Core.<*> (o Core..:? "waitExpired") + ) + +instance Core.ToJSON ListActiveBreakpointsResponse where + toJSON ListActiveBreakpointsResponse {..} = + Core.object + ( Core.catMaybes + [ ("breakpoints" Core..=) Core.<$> breakpoints, + ("nextWaitToken" Core..=) Core.<$> nextWaitToken, + ("waitExpired" Core..=) Core.<$> waitExpired + ] + ) + +-- | Response for listing breakpoints. +-- +-- /See:/ 'newListBreakpointsResponse' smart constructor. +data ListBreakpointsResponse = ListBreakpointsResponse + { -- | List of breakpoints matching the request. The fields @id@ and @location@ are guaranteed to be set on each breakpoint. The fields: @stack_frames@, @evaluated_expressions@ and @variable_table@ are cleared on each breakpoint regardless of its status. + breakpoints :: (Core.Maybe [Breakpoint]), + -- | A wait token that can be used in the next call to @list@ (REST) or @ListBreakpoints@ (RPC) to block until the list of breakpoints has changes. + nextWaitToken :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListBreakpointsResponse' with the minimum fields required to make a request. +newListBreakpointsResponse :: + ListBreakpointsResponse +newListBreakpointsResponse = + ListBreakpointsResponse + { breakpoints = Core.Nothing, + nextWaitToken = Core.Nothing + } + +instance Core.FromJSON ListBreakpointsResponse where + parseJSON = + Core.withObject + "ListBreakpointsResponse" + ( \o -> + ListBreakpointsResponse + Core.<$> (o Core..:? "breakpoints") + Core.<*> (o Core..:? "nextWaitToken") + ) + +instance Core.ToJSON ListBreakpointsResponse where + toJSON ListBreakpointsResponse {..} = + Core.object + ( Core.catMaybes + [ ("breakpoints" Core..=) Core.<$> breakpoints, + ("nextWaitToken" Core..=) Core.<$> nextWaitToken + ] + ) + +-- | Response for listing debuggees. +-- +-- /See:/ 'newListDebuggeesResponse' smart constructor. +newtype ListDebuggeesResponse = ListDebuggeesResponse + { -- | List of debuggees accessible to the calling user. The fields @debuggee.id@ and @description@ are guaranteed to be set. The @description@ field is a human readable field provided by agents and can be displayed to users. + debuggees :: (Core.Maybe [Debuggee]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListDebuggeesResponse' with the minimum fields required to make a request. +newListDebuggeesResponse :: + ListDebuggeesResponse +newListDebuggeesResponse = + ListDebuggeesResponse {debuggees = Core.Nothing} + +instance Core.FromJSON ListDebuggeesResponse where + parseJSON = + Core.withObject + "ListDebuggeesResponse" + (\o -> ListDebuggeesResponse Core.<$> (o Core..:? "debuggees")) + +instance Core.ToJSON ListDebuggeesResponse where + toJSON ListDebuggeesResponse {..} = + Core.object + (Core.catMaybes [("debuggees" Core..=) Core.<$> debuggees]) + +-- | Selects a repo using a Google Cloud Platform project ID (e.g. winged-cargo-31) and a repo name within that project. +-- +-- /See:/ 'newProjectRepoId' smart constructor. +data ProjectRepoId = ProjectRepoId + { -- | The ID of the project. + projectId :: (Core.Maybe Core.Text), + -- | The name of the repo. Leave empty for the default repo. + repoName :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ProjectRepoId' with the minimum fields required to make a request. +newProjectRepoId :: + ProjectRepoId +newProjectRepoId = + ProjectRepoId {projectId = Core.Nothing, repoName = Core.Nothing} + +instance Core.FromJSON ProjectRepoId where + parseJSON = + Core.withObject + "ProjectRepoId" + ( \o -> + ProjectRepoId + Core.<$> (o Core..:? "projectId") + Core.<*> (o Core..:? "repoName") + ) + +instance Core.ToJSON ProjectRepoId where + toJSON ProjectRepoId {..} = + Core.object + ( Core.catMaybes + [ ("projectId" Core..=) Core.<$> projectId, + ("repoName" Core..=) Core.<$> repoName + ] + ) + +-- | Request to register a debuggee. +-- +-- /See:/ 'newRegisterDebuggeeRequest' smart constructor. +newtype RegisterDebuggeeRequest = RegisterDebuggeeRequest + { -- | Required. Debuggee information to register. The fields @project@, @uniquifier@, @description@ and @agent_version@ of the debuggee must be set. + debuggee :: (Core.Maybe Debuggee) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RegisterDebuggeeRequest' with the minimum fields required to make a request. +newRegisterDebuggeeRequest :: + RegisterDebuggeeRequest +newRegisterDebuggeeRequest = + RegisterDebuggeeRequest {debuggee = Core.Nothing} + +instance Core.FromJSON RegisterDebuggeeRequest where + parseJSON = + Core.withObject + "RegisterDebuggeeRequest" + (\o -> RegisterDebuggeeRequest Core.<$> (o Core..:? "debuggee")) + +instance Core.ToJSON RegisterDebuggeeRequest where + toJSON RegisterDebuggeeRequest {..} = + Core.object + (Core.catMaybes [("debuggee" Core..=) Core.<$> debuggee]) + +-- | Response for registering a debuggee. +-- +-- /See:/ 'newRegisterDebuggeeResponse' smart constructor. +data RegisterDebuggeeResponse = RegisterDebuggeeResponse + { -- | A unique ID generated for the agent. Each RegisterDebuggee request will generate a new agent ID. + agentId :: (Core.Maybe Core.Text), + -- | Debuggee resource. The field @id@ is guaranteed to be set (in addition to the echoed fields). If the field @is_disabled@ is set to @true@, the agent should disable itself by removing all breakpoints and detaching from the application. It should however continue to poll @RegisterDebuggee@ until reenabled. + debuggee :: (Core.Maybe Debuggee) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RegisterDebuggeeResponse' with the minimum fields required to make a request. +newRegisterDebuggeeResponse :: + RegisterDebuggeeResponse +newRegisterDebuggeeResponse = + RegisterDebuggeeResponse + { agentId = Core.Nothing, + debuggee = Core.Nothing + } + +instance Core.FromJSON RegisterDebuggeeResponse where + parseJSON = + Core.withObject + "RegisterDebuggeeResponse" + ( \o -> + RegisterDebuggeeResponse + Core.<$> (o Core..:? "agentId") + Core.<*> (o Core..:? "debuggee") + ) + +instance Core.ToJSON RegisterDebuggeeResponse where + toJSON RegisterDebuggeeResponse {..} = + Core.object + ( Core.catMaybes + [ ("agentId" Core..=) Core.<$> agentId, + ("debuggee" Core..=) Core.<$> debuggee + ] + ) + +-- | A unique identifier for a cloud repo. +-- +-- /See:/ 'newRepoId' smart constructor. +data RepoId = RepoId + { -- | A combination of a project ID and a repo name. + projectRepoId :: (Core.Maybe ProjectRepoId), + -- | A server-assigned, globally unique identifier. + uid :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RepoId' with the minimum fields required to make a request. +newRepoId :: + RepoId +newRepoId = + RepoId {projectRepoId = Core.Nothing, uid = Core.Nothing} + +instance Core.FromJSON RepoId where + parseJSON = + Core.withObject + "RepoId" + ( \o -> + RepoId + Core.<$> (o Core..:? "projectRepoId") + Core.<*> (o Core..:? "uid") + ) + +instance Core.ToJSON RepoId where + toJSON RepoId {..} = + Core.object + ( Core.catMaybes + [ ("projectRepoId" Core..=) Core.<$> projectRepoId, + ("uid" Core..=) Core.<$> uid + ] + ) + +-- | Response for setting a breakpoint. +-- +-- /See:/ 'newSetBreakpointResponse' smart constructor. +newtype SetBreakpointResponse = SetBreakpointResponse + { -- | Breakpoint resource. The field @id@ is guaranteed to be set (in addition to the echoed fields). + breakpoint :: (Core.Maybe Breakpoint) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'SetBreakpointResponse' with the minimum fields required to make a request. +newSetBreakpointResponse :: + SetBreakpointResponse +newSetBreakpointResponse = + SetBreakpointResponse {breakpoint = Core.Nothing} + +instance Core.FromJSON SetBreakpointResponse where + parseJSON = + Core.withObject + "SetBreakpointResponse" + (\o -> SetBreakpointResponse Core.<$> (o Core..:? "breakpoint")) + +instance Core.ToJSON SetBreakpointResponse where + toJSON SetBreakpointResponse {..} = + Core.object + (Core.catMaybes [("breakpoint" Core..=) Core.<$> breakpoint]) + +-- | A SourceContext is a reference to a tree of files. A SourceContext together with a path point to a unique revision of a single file or directory. +-- +-- /See:/ 'newSourceContext' smart constructor. +data SourceContext = SourceContext + { -- | A SourceContext referring to a revision in a cloud repo. + cloudRepo :: (Core.Maybe CloudRepoSourceContext), + -- | A SourceContext referring to a snapshot in a cloud workspace. + cloudWorkspace :: (Core.Maybe CloudWorkspaceSourceContext), + -- | A SourceContext referring to a Gerrit project. + gerrit :: (Core.Maybe GerritSourceContext), + -- | A SourceContext referring to any third party Git repo (e.g. GitHub). + git :: (Core.Maybe GitSourceContext) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'SourceContext' with the minimum fields required to make a request. +newSourceContext :: + SourceContext +newSourceContext = + SourceContext + { cloudRepo = Core.Nothing, + cloudWorkspace = Core.Nothing, + gerrit = Core.Nothing, + git = Core.Nothing + } + +instance Core.FromJSON SourceContext where + parseJSON = + Core.withObject + "SourceContext" + ( \o -> + SourceContext + Core.<$> (o Core..:? "cloudRepo") + Core.<*> (o Core..:? "cloudWorkspace") + Core.<*> (o Core..:? "gerrit") + Core.<*> (o Core..:? "git") + ) + +instance Core.ToJSON SourceContext where + toJSON SourceContext {..} = + Core.object + ( Core.catMaybes + [ ("cloudRepo" Core..=) Core.<$> cloudRepo, + ("cloudWorkspace" Core..=) Core.<$> cloudWorkspace, + ("gerrit" Core..=) Core.<$> gerrit, + ("git" Core..=) Core.<$> git + ] + ) + +-- | Represents a location in the source code. +-- +-- /See:/ 'newSourceLocation' smart constructor. +data SourceLocation = SourceLocation + { -- | Column within a line. The first column in a line as the value @1@. Agents that do not support setting breakpoints on specific columns ignore this field. + column :: (Core.Maybe Core.Int32), + -- | Line inside the file. The first line in the file has the value @1@. + line :: (Core.Maybe Core.Int32), + -- | Path to the source file within the source context of the target binary. + path :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'SourceLocation' with the minimum fields required to make a request. +newSourceLocation :: + SourceLocation +newSourceLocation = + SourceLocation + { column = Core.Nothing, + line = Core.Nothing, + path = Core.Nothing + } + +instance Core.FromJSON SourceLocation where + parseJSON = + Core.withObject + "SourceLocation" + ( \o -> + SourceLocation + Core.<$> (o Core..:? "column") + Core.<*> (o Core..:? "line") + Core.<*> (o Core..:? "path") + ) + +instance Core.ToJSON SourceLocation where + toJSON SourceLocation {..} = + Core.object + ( Core.catMaybes + [ ("column" Core..=) Core.<$> column, + ("line" Core..=) Core.<$> line, + ("path" Core..=) Core.<$> path + ] + ) + +-- | Represents a stack frame context. +-- +-- /See:/ 'newStackFrame' smart constructor. +data StackFrame = StackFrame + { -- | Set of arguments passed to this function. Note that this might not be populated for all stack frames. + arguments :: (Core.Maybe [Variable]), + -- | Demangled function name at the call site. + function :: (Core.Maybe Core.Text), + -- | Set of local variables at the stack frame location. Note that this might not be populated for all stack frames. + locals :: (Core.Maybe [Variable]), + -- | Source location of the call site. + location :: (Core.Maybe SourceLocation) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'StackFrame' with the minimum fields required to make a request. +newStackFrame :: + StackFrame +newStackFrame = + StackFrame + { arguments = Core.Nothing, + function = Core.Nothing, + locals = Core.Nothing, + location = Core.Nothing + } + +instance Core.FromJSON StackFrame where + parseJSON = + Core.withObject + "StackFrame" + ( \o -> + StackFrame + Core.<$> (o Core..:? "arguments") + Core.<*> (o Core..:? "function") + Core.<*> (o Core..:? "locals") + Core.<*> (o Core..:? "location") + ) + +instance Core.ToJSON StackFrame where + toJSON StackFrame {..} = + Core.object + ( Core.catMaybes + [ ("arguments" Core..=) Core.<$> arguments, + ("function" Core..=) Core.<$> function, + ("locals" Core..=) Core.<$> locals, + ("location" Core..=) Core.<$> location + ] + ) + +-- | Represents a contextual status message. The message can indicate an error or informational status, and refer to specific parts of the containing object. For example, the @Breakpoint.status@ field can indicate an error referring to the @BREAKPOINT_SOURCE_LOCATION@ with the message @Location not found@. +-- +-- /See:/ 'newStatusMessage' smart constructor. +data StatusMessage = StatusMessage + { -- | Status message text. + description :: (Core.Maybe FormatMessage), + -- | Distinguishes errors from informational messages. + isError :: (Core.Maybe Core.Bool), + -- | Reference to which the message applies. + refersTo :: (Core.Maybe StatusMessage_RefersTo) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'StatusMessage' with the minimum fields required to make a request. +newStatusMessage :: + StatusMessage +newStatusMessage = + StatusMessage + { description = Core.Nothing, + isError = Core.Nothing, + refersTo = Core.Nothing + } + +instance Core.FromJSON StatusMessage where + parseJSON = + Core.withObject + "StatusMessage" + ( \o -> + StatusMessage + Core.<$> (o Core..:? "description") + Core.<*> (o Core..:? "isError") + Core.<*> (o Core..:? "refersTo") + ) + +instance Core.ToJSON StatusMessage where + toJSON StatusMessage {..} = + Core.object + ( Core.catMaybes + [ ("description" Core..=) Core.<$> description, + ("isError" Core..=) Core.<$> isError, + ("refersTo" Core..=) Core.<$> refersTo + ] + ) + +-- | Request to update an active breakpoint. +-- +-- /See:/ 'newUpdateActiveBreakpointRequest' smart constructor. +newtype UpdateActiveBreakpointRequest = UpdateActiveBreakpointRequest + { -- | Required. Updated breakpoint information. The field @id@ must be set. The agent must echo all Breakpoint specification fields in the update. + breakpoint :: (Core.Maybe Breakpoint) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'UpdateActiveBreakpointRequest' with the minimum fields required to make a request. +newUpdateActiveBreakpointRequest :: + UpdateActiveBreakpointRequest +newUpdateActiveBreakpointRequest = + UpdateActiveBreakpointRequest {breakpoint = Core.Nothing} + +instance Core.FromJSON UpdateActiveBreakpointRequest where + parseJSON = + Core.withObject + "UpdateActiveBreakpointRequest" + ( \o -> + UpdateActiveBreakpointRequest Core.<$> (o Core..:? "breakpoint") + ) + +instance Core.ToJSON UpdateActiveBreakpointRequest where + toJSON UpdateActiveBreakpointRequest {..} = + Core.object + (Core.catMaybes [("breakpoint" Core..=) Core.<$> breakpoint]) + +-- | Response for updating an active breakpoint. The message is defined to allow future extensions. +-- +-- /See:/ 'newUpdateActiveBreakpointResponse' smart constructor. +data UpdateActiveBreakpointResponse = UpdateActiveBreakpointResponse + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'UpdateActiveBreakpointResponse' with the minimum fields required to make a request. +newUpdateActiveBreakpointResponse :: + UpdateActiveBreakpointResponse +newUpdateActiveBreakpointResponse = UpdateActiveBreakpointResponse + +instance Core.FromJSON UpdateActiveBreakpointResponse where + parseJSON = + Core.withObject + "UpdateActiveBreakpointResponse" + (\o -> Core.pure UpdateActiveBreakpointResponse) + +instance Core.ToJSON UpdateActiveBreakpointResponse where + toJSON = Core.const Core.emptyObject + +-- | Represents a variable or an argument possibly of a compound object type. Note how the following variables are represented: 1) A simple variable: int x = 5 { name: \"x\", value: \"5\", type: \"int\" } \/\/ Captured variable 2) A compound object: struct T { int m1; int m2; }; T x = { 3, 7 }; { \/\/ Captured variable name: \"x\", type: \"T\", members { name: \"m1\", value: \"3\", type: \"int\" }, members { name: \"m2\", value: \"7\", type: \"int\" } } 3) A pointer where the pointee was captured: T x = { 3, 7 }; T* p = &x; { \/\/ Captured variable name: \"p\", type: \"T/\", value: \"0x00500500\", members { name: \"m1\", value: \"3\", type: \"int\" }, members { name: \"m2\", value: \"7\", type: \"int\" } } 4) A pointer where the pointee was not captured: T/ p = new T; { \/\/ Captured variable name: \"p\", type: \"T*\", value: \"0x00400400\" status { is/error: true, description { format: \"unavailable\" } } } The status should describe the reason for the missing value, such as @,@, +-- \`@. Note that a null pointer should not have members. 5) An unnamed value: int* p = new int(7); { \/\/ Captured variable name: \"p\", value: \"0x00500500\", type: \"int*\", members { value: \"7\", type: \"int\" } } 6) An unnamed pointer where the pointee was not captured: int* p = new int(7); int** pp = &p; { \/\/ Captured variable name: \"pp\", value: \"0x00500500\", type: \"int**\", members { value: \"0x00400400\", type: \"int*\" status { is_error: true, description: { format: \"unavailable\" } } } } } To optimize computation, memory and network traffic, variables that repeat in the output multiple times can be stored once in a shared variable table and be referenced using the@var/table/index\` field. The variables stored in the shared table are nameless and are essentially a partition of the complete variable. To reconstruct the complete variable, merge the referencing variable with the referenced variable. When using the shared variable table, the following variables: T x = { 3, 7 }; T* p = &x; T& r = x; +-- { name: \"x\", var/table_index: 3, type: \"T\" } \/\/ Captured variables { name: \"p\", value \"0x00500500\", type=\"T*\", var/table/index: 3 } { name: \"r\", type=\"T&\", var/table/index: 3 } { \/\/ Shared variable table entry #3: members { name: \"m1\", value: \"3\", type: \"int\" }, members { name: \"m2\", value: \"7\", type: \"int\" } } Note that the pointer address is stored with the referencing variable and not with the referenced variable. This allows the referenced variable to be shared between pointers and references. The type field is optional. The debugger agent may or may not support it. +-- +-- /See:/ 'newVariable' smart constructor. +data Variable = Variable + { -- | Members contained or pointed to by the variable. + members :: (Core.Maybe [Variable]), + -- | Name of the variable, if any. + name :: (Core.Maybe Core.Text), + -- | Status associated with the variable. This field will usually stay unset. A status of a single variable only applies to that variable or expression. The rest of breakpoint data still remains valid. Variables might be reported in error state even when breakpoint is not in final state. The message may refer to variable name with @refers_to@ set to @VARIABLE_NAME@. Alternatively @refers_to@ will be set to @VARIABLE_VALUE@. In either case variable value and members will be unset. Example of error message applied to name: @Invalid expression syntax@. Example of information message applied to value: @Not captured@. Examples of error message applied to value: * @Malformed string@, * @Field f not found in class C@ * @Null pointer dereference@ + status :: (Core.Maybe StatusMessage), + -- | Variable type (e.g. @MyClass@). If the variable is split with @var_table_index@, @type@ goes next to @value@. The interpretation of a type is agent specific. It is recommended to include the dynamic type rather than a static type of an object. + type' :: (Core.Maybe Core.Text), + -- | Simple value of the variable. + value :: (Core.Maybe Core.Text), + -- | Reference to a variable in the shared variable table. More than one variable can reference the same variable in the table. The @var_table_index@ field is an index into @variable_table@ in Breakpoint. + varTableIndex :: (Core.Maybe Core.Int32) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Variable' with the minimum fields required to make a request. +newVariable :: + Variable +newVariable = + Variable + { members = Core.Nothing, + name = Core.Nothing, + status = Core.Nothing, + type' = Core.Nothing, + value = Core.Nothing, + varTableIndex = Core.Nothing + } + +instance Core.FromJSON Variable where + parseJSON = + Core.withObject + "Variable" + ( \o -> + Variable + Core.<$> (o Core..:? "members") + Core.<*> (o Core..:? "name") + Core.<*> (o Core..:? "status") + Core.<*> (o Core..:? "type") + Core.<*> (o Core..:? "value") + Core.<*> (o Core..:? "varTableIndex") + ) + +instance Core.ToJSON Variable where + toJSON Variable {..} = + Core.object + ( Core.catMaybes + [ ("members" Core..=) Core.<$> members, + ("name" Core..=) Core.<$> name, + ("status" Core..=) Core.<$> status, + ("type" Core..=) Core.<$> type', + ("value" Core..=) Core.<$> value, + ("varTableIndex" Core..=) Core.<$> varTableIndex + ] + ) diff --git a/gen/Gogol/Debugger/Internal/Sum.hs b/gen/Gogol/Debugger/Internal/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Internal/Sum.hs @@ -0,0 +1,431 @@ +{-# 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.Debugger.Internal.Sum +-- 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) +module Gogol.Debugger.Internal.Sum + ( -- * Xgafv + Xgafv + ( Xgafv_1, + Xgafv_2, + .. + ), + + -- * AliasContext_Kind + AliasContext_Kind + ( AliasContext_Kind_Any, + AliasContext_Kind_Fixed, + AliasContext_Kind_Movable, + AliasContext_Kind_Other, + .. + ), + + -- * Breakpoint_Action + Breakpoint_Action + ( Breakpoint_Action_Capture, + Breakpoint_Action_Log, + .. + ), + + -- * Breakpoint_LogLevel + Breakpoint_LogLevel + ( Breakpoint_LogLevel_Info, + Breakpoint_LogLevel_Warning, + Breakpoint_LogLevel_Error', + .. + ), + + -- * Breakpoint_State + Breakpoint_State + ( Breakpoint_State_STATEUNSPECIFIED, + Breakpoint_State_STATECANARYPENDINGAGENTS, + Breakpoint_State_STATECANARYACTIVE, + Breakpoint_State_STATEROLLINGTOALL, + Breakpoint_State_STATEISFINAL, + .. + ), + + -- * Debuggee_CanaryMode + Debuggee_CanaryMode + ( Debuggee_CanaryMode_CANARYMODEUNSPECIFIED, + Debuggee_CanaryMode_CANARYMODEALWAYSENABLED, + Debuggee_CanaryMode_CANARYMODEALWAYSDISABLED, + Debuggee_CanaryMode_CANARYMODEDEFAULTENABLED, + Debuggee_CanaryMode_CANARYMODEDEFAULTDISABLED, + .. + ), + + -- * StatusMessage_RefersTo + StatusMessage_RefersTo + ( StatusMessage_RefersTo_Unspecified, + StatusMessage_RefersTo_BREAKPOINTSOURCELOCATION, + StatusMessage_RefersTo_BREAKPOINTCONDITION, + StatusMessage_RefersTo_BREAKPOINTEXPRESSION, + StatusMessage_RefersTo_BREAKPOINTAGE, + StatusMessage_RefersTo_BREAKPOINTCANARYFAILED, + StatusMessage_RefersTo_VARIABLENAME, + StatusMessage_RefersTo_VARIABLEVALUE, + .. + ), + + -- * DebuggerDebuggeesBreakpointsListActionValue + DebuggerDebuggeesBreakpointsListActionValue + ( DebuggerDebuggeesBreakpointsListActionValue_Capture, + DebuggerDebuggeesBreakpointsListActionValue_Log, + .. + ), + + -- * DebuggerDebuggeesBreakpointsSetCanaryOption + DebuggerDebuggeesBreakpointsSetCanaryOption + ( DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONUNSPECIFIED, + DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYENABLE, + DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYDISABLE, + .. + ), + ) +where + +import Gogol.Prelude qualified as Core + +-- | V1 error format. +newtype Xgafv = Xgafv {fromXgafv :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | v1 error format +pattern Xgafv_1 :: Xgafv +pattern Xgafv_1 = Xgafv "1" + +-- | v2 error format +pattern Xgafv_2 :: Xgafv +pattern Xgafv_2 = Xgafv "2" + +{-# COMPLETE + Xgafv_1, + Xgafv_2, + Xgafv + #-} + +-- | The alias kind. +newtype AliasContext_Kind = AliasContext_Kind {fromAliasContext_Kind :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Do not use. +pattern AliasContext_Kind_Any :: AliasContext_Kind +pattern AliasContext_Kind_Any = AliasContext_Kind "ANY" + +-- | Git tag +pattern AliasContext_Kind_Fixed :: AliasContext_Kind +pattern AliasContext_Kind_Fixed = AliasContext_Kind "FIXED" + +-- | Git branch +pattern AliasContext_Kind_Movable :: AliasContext_Kind +pattern AliasContext_Kind_Movable = AliasContext_Kind "MOVABLE" + +-- | OTHER is used to specify non-standard aliases, those not of the kinds above. For example, if a Git repo has a ref named \"refs\/foo\/bar\", it is considered to be of kind OTHER. +pattern AliasContext_Kind_Other :: AliasContext_Kind +pattern AliasContext_Kind_Other = AliasContext_Kind "OTHER" + +{-# COMPLETE + AliasContext_Kind_Any, + AliasContext_Kind_Fixed, + AliasContext_Kind_Movable, + AliasContext_Kind_Other, + AliasContext_Kind + #-} + +-- | Action that the agent should perform when the code at the breakpoint location is hit. +newtype Breakpoint_Action = Breakpoint_Action {fromBreakpoint_Action :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Capture stack frame and variables and update the breakpoint. The data is only captured once. After that the breakpoint is set in a final state. +pattern Breakpoint_Action_Capture :: Breakpoint_Action +pattern Breakpoint_Action_Capture = Breakpoint_Action "CAPTURE" + +-- | Log each breakpoint hit. The breakpoint remains active until deleted or expired. +pattern Breakpoint_Action_Log :: Breakpoint_Action +pattern Breakpoint_Action_Log = Breakpoint_Action "LOG" + +{-# COMPLETE + Breakpoint_Action_Capture, + Breakpoint_Action_Log, + Breakpoint_Action + #-} + +-- | Indicates the severity of the log. Only relevant when action is @LOG@. +newtype Breakpoint_LogLevel = Breakpoint_LogLevel {fromBreakpoint_LogLevel :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Information log message. +pattern Breakpoint_LogLevel_Info :: Breakpoint_LogLevel +pattern Breakpoint_LogLevel_Info = Breakpoint_LogLevel "INFO" + +-- | Warning log message. +pattern Breakpoint_LogLevel_Warning :: Breakpoint_LogLevel +pattern Breakpoint_LogLevel_Warning = Breakpoint_LogLevel "WARNING" + +-- | Error log message. +pattern Breakpoint_LogLevel_Error' :: Breakpoint_LogLevel +pattern Breakpoint_LogLevel_Error' = Breakpoint_LogLevel "ERROR" + +{-# COMPLETE + Breakpoint_LogLevel_Info, + Breakpoint_LogLevel_Warning, + Breakpoint_LogLevel_Error', + Breakpoint_LogLevel + #-} + +-- | The current state of the breakpoint. +newtype Breakpoint_State = Breakpoint_State {fromBreakpoint_State :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Breakpoint state UNSPECIFIED. +pattern Breakpoint_State_STATEUNSPECIFIED :: Breakpoint_State +pattern Breakpoint_State_STATEUNSPECIFIED = Breakpoint_State "STATE_UNSPECIFIED" + +-- | Enabling canary but no agents are available. +pattern Breakpoint_State_STATECANARYPENDINGAGENTS :: Breakpoint_State +pattern Breakpoint_State_STATECANARYPENDINGAGENTS = Breakpoint_State "STATE_CANARY_PENDING_AGENTS" + +-- | Enabling canary and successfully assigning canary agents. +pattern Breakpoint_State_STATECANARYACTIVE :: Breakpoint_State +pattern Breakpoint_State_STATECANARYACTIVE = Breakpoint_State "STATE_CANARY_ACTIVE" + +-- | Breakpoint rolling out to all agents. +pattern Breakpoint_State_STATEROLLINGTOALL :: Breakpoint_State +pattern Breakpoint_State_STATEROLLINGTOALL = Breakpoint_State "STATE_ROLLING_TO_ALL" + +-- | Breakpoint is hit\/complete\/failed. +pattern Breakpoint_State_STATEISFINAL :: Breakpoint_State +pattern Breakpoint_State_STATEISFINAL = Breakpoint_State "STATE_IS_FINAL" + +{-# COMPLETE + Breakpoint_State_STATEUNSPECIFIED, + Breakpoint_State_STATECANARYPENDINGAGENTS, + Breakpoint_State_STATECANARYACTIVE, + Breakpoint_State_STATEROLLINGTOALL, + Breakpoint_State_STATEISFINAL, + Breakpoint_State + #-} + +-- | Used when setting breakpoint canary for this debuggee. +newtype Debuggee_CanaryMode = Debuggee_CanaryMode {fromDebuggee_CanaryMode :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | CANARY/MODE/UNSPECIFIED is equivalent to CANARY/MODE/ALWAYS_DISABLED so that if the debuggee is not configured to use the canary feature, the feature will be disabled. +pattern Debuggee_CanaryMode_CANARYMODEUNSPECIFIED :: Debuggee_CanaryMode +pattern Debuggee_CanaryMode_CANARYMODEUNSPECIFIED = Debuggee_CanaryMode "CANARY_MODE_UNSPECIFIED" + +-- | Always enable breakpoint canary regardless of the value of breakpoint\'s canary option. +pattern Debuggee_CanaryMode_CANARYMODEALWAYSENABLED :: Debuggee_CanaryMode +pattern Debuggee_CanaryMode_CANARYMODEALWAYSENABLED = Debuggee_CanaryMode "CANARY_MODE_ALWAYS_ENABLED" + +-- | Always disable breakpoint canary regardless of the value of breakpoint\'s canary option. +pattern Debuggee_CanaryMode_CANARYMODEALWAYSDISABLED :: Debuggee_CanaryMode +pattern Debuggee_CanaryMode_CANARYMODEALWAYSDISABLED = Debuggee_CanaryMode "CANARY_MODE_ALWAYS_DISABLED" + +-- | Depends on the breakpoint\'s canary option. Enable canary by default if the breakpoint\'s canary option is not specified. +pattern Debuggee_CanaryMode_CANARYMODEDEFAULTENABLED :: Debuggee_CanaryMode +pattern Debuggee_CanaryMode_CANARYMODEDEFAULTENABLED = Debuggee_CanaryMode "CANARY_MODE_DEFAULT_ENABLED" + +-- | Depends on the breakpoint\'s canary option. Disable canary by default if the breakpoint\'s canary option is not specified. +pattern Debuggee_CanaryMode_CANARYMODEDEFAULTDISABLED :: Debuggee_CanaryMode +pattern Debuggee_CanaryMode_CANARYMODEDEFAULTDISABLED = Debuggee_CanaryMode "CANARY_MODE_DEFAULT_DISABLED" + +{-# COMPLETE + Debuggee_CanaryMode_CANARYMODEUNSPECIFIED, + Debuggee_CanaryMode_CANARYMODEALWAYSENABLED, + Debuggee_CanaryMode_CANARYMODEALWAYSDISABLED, + Debuggee_CanaryMode_CANARYMODEDEFAULTENABLED, + Debuggee_CanaryMode_CANARYMODEDEFAULTDISABLED, + Debuggee_CanaryMode + #-} + +-- | Reference to which the message applies. +newtype StatusMessage_RefersTo = StatusMessage_RefersTo {fromStatusMessage_RefersTo :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Status doesn\'t refer to any particular input. +pattern StatusMessage_RefersTo_Unspecified :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_Unspecified = StatusMessage_RefersTo "UNSPECIFIED" + +-- | Status applies to the breakpoint and is related to its location. +pattern StatusMessage_RefersTo_BREAKPOINTSOURCELOCATION :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_BREAKPOINTSOURCELOCATION = StatusMessage_RefersTo "BREAKPOINT_SOURCE_LOCATION" + +-- | Status applies to the breakpoint and is related to its condition. +pattern StatusMessage_RefersTo_BREAKPOINTCONDITION :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_BREAKPOINTCONDITION = StatusMessage_RefersTo "BREAKPOINT_CONDITION" + +-- | Status applies to the breakpoint and is related to its expressions. +pattern StatusMessage_RefersTo_BREAKPOINTEXPRESSION :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_BREAKPOINTEXPRESSION = StatusMessage_RefersTo "BREAKPOINT_EXPRESSION" + +-- | Status applies to the breakpoint and is related to its age. +pattern StatusMessage_RefersTo_BREAKPOINTAGE :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_BREAKPOINTAGE = StatusMessage_RefersTo "BREAKPOINT_AGE" + +-- | Status applies to the breakpoint when the breakpoint failed to exit the canary state. +pattern StatusMessage_RefersTo_BREAKPOINTCANARYFAILED :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_BREAKPOINTCANARYFAILED = StatusMessage_RefersTo "BREAKPOINT_CANARY_FAILED" + +-- | Status applies to the entire variable. +pattern StatusMessage_RefersTo_VARIABLENAME :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_VARIABLENAME = StatusMessage_RefersTo "VARIABLE_NAME" + +-- | Status applies to variable value (variable name is valid). +pattern StatusMessage_RefersTo_VARIABLEVALUE :: StatusMessage_RefersTo +pattern StatusMessage_RefersTo_VARIABLEVALUE = StatusMessage_RefersTo "VARIABLE_VALUE" + +{-# COMPLETE + StatusMessage_RefersTo_Unspecified, + StatusMessage_RefersTo_BREAKPOINTSOURCELOCATION, + StatusMessage_RefersTo_BREAKPOINTCONDITION, + StatusMessage_RefersTo_BREAKPOINTEXPRESSION, + StatusMessage_RefersTo_BREAKPOINTAGE, + StatusMessage_RefersTo_BREAKPOINTCANARYFAILED, + StatusMessage_RefersTo_VARIABLENAME, + StatusMessage_RefersTo_VARIABLEVALUE, + StatusMessage_RefersTo + #-} + +-- | Only breakpoints with the specified action will pass the filter. +newtype DebuggerDebuggeesBreakpointsListActionValue = DebuggerDebuggeesBreakpointsListActionValue {fromDebuggerDebuggeesBreakpointsListActionValue :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Capture stack frame and variables and update the breakpoint. The data is only captured once. After that the breakpoint is set in a final state. +pattern DebuggerDebuggeesBreakpointsListActionValue_Capture :: DebuggerDebuggeesBreakpointsListActionValue +pattern DebuggerDebuggeesBreakpointsListActionValue_Capture = DebuggerDebuggeesBreakpointsListActionValue "CAPTURE" + +-- | Log each breakpoint hit. The breakpoint remains active until deleted or expired. +pattern DebuggerDebuggeesBreakpointsListActionValue_Log :: DebuggerDebuggeesBreakpointsListActionValue +pattern DebuggerDebuggeesBreakpointsListActionValue_Log = DebuggerDebuggeesBreakpointsListActionValue "LOG" + +{-# COMPLETE + DebuggerDebuggeesBreakpointsListActionValue_Capture, + DebuggerDebuggeesBreakpointsListActionValue_Log, + DebuggerDebuggeesBreakpointsListActionValue + #-} + +-- | The canary option set by the user upon setting breakpoint. +newtype DebuggerDebuggeesBreakpointsSetCanaryOption = DebuggerDebuggeesBreakpointsSetCanaryOption {fromDebuggerDebuggeesBreakpointsSetCanaryOption :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Depends on the canary_mode of the debuggee. +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONUNSPECIFIED :: DebuggerDebuggeesBreakpointsSetCanaryOption +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONUNSPECIFIED = DebuggerDebuggeesBreakpointsSetCanaryOption "CANARY_OPTION_UNSPECIFIED" + +-- | Enable the canary for this breakpoint if the canary/mode of the debuggee is not CANARY/MODE/ALWAYS/ENABLED or CANARY/MODE/ALWAYS_DISABLED. +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYENABLE :: DebuggerDebuggeesBreakpointsSetCanaryOption +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYENABLE = DebuggerDebuggeesBreakpointsSetCanaryOption "CANARY_OPTION_TRY_ENABLE" + +-- | Disable the canary for this breakpoint if the canary/mode of the debuggee is not CANARY/MODE/ALWAYS/ENABLED or CANARY/MODE/ALWAYS_DISABLED. +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYDISABLE :: DebuggerDebuggeesBreakpointsSetCanaryOption +pattern DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYDISABLE = DebuggerDebuggeesBreakpointsSetCanaryOption "CANARY_OPTION_TRY_DISABLE" + +{-# COMPLETE + DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONUNSPECIFIED, + DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYENABLE, + DebuggerDebuggeesBreakpointsSetCanaryOption_CANARYOPTIONTRYDISABLE, + DebuggerDebuggeesBreakpointsSetCanaryOption + #-} diff --git a/gen/Gogol/Debugger/Types.hs b/gen/Gogol/Debugger/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/Debugger/Types.hs @@ -0,0 +1,202 @@ +{-# 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.Debugger.Types +-- 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) +module Gogol.Debugger.Types + ( -- * Configuration + debuggerService, + + -- * OAuth Scopes + CloudPlatform'FullControl, + CloudDebugger'FullControl, + + -- * Types + + -- ** Xgafv + Xgafv (..), + + -- ** AliasContext + AliasContext (..), + newAliasContext, + + -- ** AliasContext_Kind + AliasContext_Kind (..), + + -- ** Breakpoint + Breakpoint (..), + newBreakpoint, + + -- ** Breakpoint_Action + Breakpoint_Action (..), + + -- ** Breakpoint_Labels + Breakpoint_Labels (..), + newBreakpoint_Labels, + + -- ** Breakpoint_LogLevel + Breakpoint_LogLevel (..), + + -- ** Breakpoint_State + Breakpoint_State (..), + + -- ** CloudRepoSourceContext + CloudRepoSourceContext (..), + newCloudRepoSourceContext, + + -- ** CloudWorkspaceId + CloudWorkspaceId (..), + newCloudWorkspaceId, + + -- ** CloudWorkspaceSourceContext + CloudWorkspaceSourceContext (..), + newCloudWorkspaceSourceContext, + + -- ** Debuggee + Debuggee (..), + newDebuggee, + + -- ** Debuggee_CanaryMode + Debuggee_CanaryMode (..), + + -- ** Debuggee_Labels + Debuggee_Labels (..), + newDebuggee_Labels, + + -- ** Empty + Empty (..), + newEmpty, + + -- ** ExtendedSourceContext + ExtendedSourceContext (..), + newExtendedSourceContext, + + -- ** ExtendedSourceContext_Labels + ExtendedSourceContext_Labels (..), + newExtendedSourceContext_Labels, + + -- ** FormatMessage + FormatMessage (..), + newFormatMessage, + + -- ** GerritSourceContext + GerritSourceContext (..), + newGerritSourceContext, + + -- ** GetBreakpointResponse + GetBreakpointResponse (..), + newGetBreakpointResponse, + + -- ** GitSourceContext + GitSourceContext (..), + newGitSourceContext, + + -- ** ListActiveBreakpointsResponse + ListActiveBreakpointsResponse (..), + newListActiveBreakpointsResponse, + + -- ** ListBreakpointsResponse + ListBreakpointsResponse (..), + newListBreakpointsResponse, + + -- ** ListDebuggeesResponse + ListDebuggeesResponse (..), + newListDebuggeesResponse, + + -- ** ProjectRepoId + ProjectRepoId (..), + newProjectRepoId, + + -- ** RegisterDebuggeeRequest + RegisterDebuggeeRequest (..), + newRegisterDebuggeeRequest, + + -- ** RegisterDebuggeeResponse + RegisterDebuggeeResponse (..), + newRegisterDebuggeeResponse, + + -- ** RepoId + RepoId (..), + newRepoId, + + -- ** SetBreakpointResponse + SetBreakpointResponse (..), + newSetBreakpointResponse, + + -- ** SourceContext + SourceContext (..), + newSourceContext, + + -- ** SourceLocation + SourceLocation (..), + newSourceLocation, + + -- ** StackFrame + StackFrame (..), + newStackFrame, + + -- ** StatusMessage + StatusMessage (..), + newStatusMessage, + + -- ** StatusMessage_RefersTo + StatusMessage_RefersTo (..), + + -- ** UpdateActiveBreakpointRequest + UpdateActiveBreakpointRequest (..), + newUpdateActiveBreakpointRequest, + + -- ** UpdateActiveBreakpointResponse + UpdateActiveBreakpointResponse (..), + newUpdateActiveBreakpointResponse, + + -- ** Variable + Variable (..), + newVariable, + + -- ** DebuggerDebuggeesBreakpointsListActionValue + DebuggerDebuggeesBreakpointsListActionValue (..), + + -- ** DebuggerDebuggeesBreakpointsSetCanaryOption + DebuggerDebuggeesBreakpointsSetCanaryOption (..), + ) +where + +import Gogol.Debugger.Internal.Product +import Gogol.Debugger.Internal.Sum +import Gogol.Prelude qualified as Core + +-- | Default request referring to version @v2@ of the Cloud Debugger API (Deprecated). This contains the host and root path used as a starting point for constructing service requests. +debuggerService :: Core.ServiceConfig +debuggerService = + Core.defaultService + (Core.ServiceId "clouddebugger:v2") + "clouddebugger.googleapis.com" + +-- | See, edit, configure, and delete your Google Cloud data and see the email address for your Google Account. +type CloudPlatform'FullControl = + "https://www.googleapis.com/auth/cloud-platform" + +-- | Use Stackdriver Debugger +type CloudDebugger'FullControl = + "https://www.googleapis.com/auth/cloud_debugger" diff --git a/gen/Network/Google/Debugger.hs b/gen/Network/Google/Debugger.hs deleted file mode 100644 --- a/gen/Network/Google/Debugger.hs +++ /dev/null @@ -1,306 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} - --- | --- Module : Network.Google.Debugger --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Examines the call stack and variables of a running application without --- stopping or slowing it down. --- --- /See:/ -module Network.Google.Debugger - ( - -- * Service Configuration - debuggerService - - -- * OAuth Scopes - , cloudDebuggerScope - , cloudPlatformScope - - -- * API Declaration - , DebuggerAPI - - -- * Resources - - -- ** clouddebugger.controller.debuggees.breakpoints.list - , module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List - - -- ** clouddebugger.controller.debuggees.breakpoints.update - , module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update - - -- ** clouddebugger.controller.debuggees.register - , module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register - - -- ** clouddebugger.debugger.debuggees.breakpoints.delete - , module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete - - -- ** clouddebugger.debugger.debuggees.breakpoints.get - , module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get - - -- ** clouddebugger.debugger.debuggees.breakpoints.list - , module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List - - -- ** clouddebugger.debugger.debuggees.breakpoints.set - , module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set - - -- ** clouddebugger.debugger.debuggees.list - , module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List - - -- * Types - - -- ** RegisterDebuggeeResponse - , RegisterDebuggeeResponse - , registerDebuggeeResponse - , rdrDebuggee - - -- ** SourceContext - , SourceContext - , sourceContext - , scCloudWorkspace - , scCloudRepo - , scGerrit - , scGit - - -- ** SetBreakpointResponse - , SetBreakpointResponse - , setBreakpointResponse - , sbrBreakpoint - - -- ** Empty - , Empty - , empty - - -- ** UpdateActiveBreakpointResponse - , UpdateActiveBreakpointResponse - , updateActiveBreakpointResponse - - -- ** GerritSourceContext - , GerritSourceContext - , gerritSourceContext - , gscGerritProject - , gscAliasName - , gscRevisionId - , gscHostURI - , gscAliasContext - - -- ** RepoId - , RepoId - , repoId - , riUid - , riProjectRepoId - - -- ** ExtendedSourceContextLabels - , ExtendedSourceContextLabels - , extendedSourceContextLabels - , esclAddtional - - -- ** ProjectRepoId - , ProjectRepoId - , projectRepoId - , priRepoName - , priProjectId - - -- ** FormatMessage - , FormatMessage - , formatMessage - , fmFormat - , fmParameters - - -- ** Breakpoint - , Breakpoint - , breakpoint - , bStatus - , bLogLevel - , bLocation - , bAction - , bFinalTime - , bExpressions - , bLogMessageFormat - , bId - , bLabels - , bUserEmail - , bVariableTable - , bStackFrames - , bCondition - , bEvaluatedExpressions - , bCreateTime - , bIsFinalState - - -- ** BreakpointLabels - , BreakpointLabels - , breakpointLabels - , blAddtional - - -- ** GetBreakpointResponse - , GetBreakpointResponse - , getBreakpointResponse - , gbrBreakpoint - - -- ** Variable - , Variable - , variable - , vStatus - , vVarTableIndex - , vMembers - , vValue - , vName - , vType - - -- ** ListBreakpointsResponse - , ListBreakpointsResponse - , listBreakpointsResponse - , lbrNextWaitToken - , lbrBreakpoints - - -- ** StatusMessageRefersTo - , StatusMessageRefersTo (..) - - -- ** BreakpointLogLevel - , BreakpointLogLevel (..) - - -- ** ListDebuggeesResponse - , ListDebuggeesResponse - , listDebuggeesResponse - , ldrDebuggees - - -- ** UpdateActiveBreakpointRequest - , UpdateActiveBreakpointRequest - , updateActiveBreakpointRequest - , uabrBreakpoint - - -- ** StatusMessage - , StatusMessage - , statusMessage - , smRefersTo - , smIsError - , smDescription - - -- ** Xgafv - , Xgafv (..) - - -- ** BreakpointAction - , BreakpointAction (..) - - -- ** ListActiveBreakpointsResponse - , ListActiveBreakpointsResponse - , listActiveBreakpointsResponse - , labrNextWaitToken - , labrBreakpoints - , labrWaitExpired - - -- ** ExtendedSourceContext - , ExtendedSourceContext - , extendedSourceContext - , escContext - , escLabels - - -- ** GitSourceContext - , GitSourceContext - , gitSourceContext - , gURL - , gRevisionId - - -- ** SourceLocation - , SourceLocation - , sourceLocation - , slPath - , slLine - , slColumn - - -- ** StackFrame - , StackFrame - , stackFrame - , sfFunction - , sfLocation - , sfArguments - , sfLocals - - -- ** CloudRepoSourceContext - , CloudRepoSourceContext - , cloudRepoSourceContext - , crscRepoId - , crscAliasName - , crscRevisionId - , crscAliasContext - - -- ** DebuggeeLabels - , DebuggeeLabels - , debuggeeLabels - , dlAddtional - - -- ** Debuggee - , Debuggee - , debuggee - , dStatus - , dUniquifier - , dProject - , dExtSourceContexts - , dAgentVersion - , dIsDisabled - , dId - , dLabels - , dDescription - , dIsInactive - , dSourceContexts - - -- ** CloudWorkspaceSourceContext - , CloudWorkspaceSourceContext - , cloudWorkspaceSourceContext - , cwscWorkspaceId - , cwscSnapshotId - - -- ** RegisterDebuggeeRequest - , RegisterDebuggeeRequest - , registerDebuggeeRequest - , rDebuggee - - -- ** AliasContext - , AliasContext - , aliasContext - , acKind - , acName - - -- ** AliasContextKind - , AliasContextKind (..) - - -- ** CloudWorkspaceId - , CloudWorkspaceId - , cloudWorkspaceId - , cwiRepoId - , cwiName - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude -import Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List -import Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update -import Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register -import Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete -import Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get -import Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List -import Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set -import Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List - -{- $resources -TODO --} - --- | Represents the entirety of the methods and resources available for the Stackdriver Debugger API service. -type DebuggerAPI = - ControllerDebuggeesBreakpointsListResource :<|> - ControllerDebuggeesBreakpointsUpdateResource - :<|> ControllerDebuggeesRegisterResource - :<|> DebuggerDebuggeesBreakpointsSetResource - :<|> DebuggerDebuggeesBreakpointsListResource - :<|> DebuggerDebuggeesBreakpointsGetResource - :<|> DebuggerDebuggeesBreakpointsDeleteResource - :<|> DebuggerDebuggeesListResource diff --git a/gen/Network/Google/Debugger/Types.hs b/gen/Network/Google/Debugger/Types.hs deleted file mode 100644 --- a/gen/Network/Google/Debugger/Types.hs +++ /dev/null @@ -1,264 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Debugger.Types --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.Debugger.Types - ( - -- * Service Configuration - debuggerService - - -- * OAuth Scopes - , cloudDebuggerScope - , cloudPlatformScope - - -- * RegisterDebuggeeResponse - , RegisterDebuggeeResponse - , registerDebuggeeResponse - , rdrDebuggee - - -- * SourceContext - , SourceContext - , sourceContext - , scCloudWorkspace - , scCloudRepo - , scGerrit - , scGit - - -- * SetBreakpointResponse - , SetBreakpointResponse - , setBreakpointResponse - , sbrBreakpoint - - -- * Empty - , Empty - , empty - - -- * UpdateActiveBreakpointResponse - , UpdateActiveBreakpointResponse - , updateActiveBreakpointResponse - - -- * GerritSourceContext - , GerritSourceContext - , gerritSourceContext - , gscGerritProject - , gscAliasName - , gscRevisionId - , gscHostURI - , gscAliasContext - - -- * RepoId - , RepoId - , repoId - , riUid - , riProjectRepoId - - -- * ExtendedSourceContextLabels - , ExtendedSourceContextLabels - , extendedSourceContextLabels - , esclAddtional - - -- * ProjectRepoId - , ProjectRepoId - , projectRepoId - , priRepoName - , priProjectId - - -- * FormatMessage - , FormatMessage - , formatMessage - , fmFormat - , fmParameters - - -- * Breakpoint - , Breakpoint - , breakpoint - , bStatus - , bLogLevel - , bLocation - , bAction - , bFinalTime - , bExpressions - , bLogMessageFormat - , bId - , bLabels - , bUserEmail - , bVariableTable - , bStackFrames - , bCondition - , bEvaluatedExpressions - , bCreateTime - , bIsFinalState - - -- * BreakpointLabels - , BreakpointLabels - , breakpointLabels - , blAddtional - - -- * GetBreakpointResponse - , GetBreakpointResponse - , getBreakpointResponse - , gbrBreakpoint - - -- * Variable - , Variable - , variable - , vStatus - , vVarTableIndex - , vMembers - , vValue - , vName - , vType - - -- * ListBreakpointsResponse - , ListBreakpointsResponse - , listBreakpointsResponse - , lbrNextWaitToken - , lbrBreakpoints - - -- * StatusMessageRefersTo - , StatusMessageRefersTo (..) - - -- * BreakpointLogLevel - , BreakpointLogLevel (..) - - -- * ListDebuggeesResponse - , ListDebuggeesResponse - , listDebuggeesResponse - , ldrDebuggees - - -- * UpdateActiveBreakpointRequest - , UpdateActiveBreakpointRequest - , updateActiveBreakpointRequest - , uabrBreakpoint - - -- * StatusMessage - , StatusMessage - , statusMessage - , smRefersTo - , smIsError - , smDescription - - -- * Xgafv - , Xgafv (..) - - -- * BreakpointAction - , BreakpointAction (..) - - -- * ListActiveBreakpointsResponse - , ListActiveBreakpointsResponse - , listActiveBreakpointsResponse - , labrNextWaitToken - , labrBreakpoints - , labrWaitExpired - - -- * ExtendedSourceContext - , ExtendedSourceContext - , extendedSourceContext - , escContext - , escLabels - - -- * GitSourceContext - , GitSourceContext - , gitSourceContext - , gURL - , gRevisionId - - -- * SourceLocation - , SourceLocation - , sourceLocation - , slPath - , slLine - , slColumn - - -- * StackFrame - , StackFrame - , stackFrame - , sfFunction - , sfLocation - , sfArguments - , sfLocals - - -- * CloudRepoSourceContext - , CloudRepoSourceContext - , cloudRepoSourceContext - , crscRepoId - , crscAliasName - , crscRevisionId - , crscAliasContext - - -- * DebuggeeLabels - , DebuggeeLabels - , debuggeeLabels - , dlAddtional - - -- * Debuggee - , Debuggee - , debuggee - , dStatus - , dUniquifier - , dProject - , dExtSourceContexts - , dAgentVersion - , dIsDisabled - , dId - , dLabels - , dDescription - , dIsInactive - , dSourceContexts - - -- * CloudWorkspaceSourceContext - , CloudWorkspaceSourceContext - , cloudWorkspaceSourceContext - , cwscWorkspaceId - , cwscSnapshotId - - -- * RegisterDebuggeeRequest - , RegisterDebuggeeRequest - , registerDebuggeeRequest - , rDebuggee - - -- * AliasContext - , AliasContext - , aliasContext - , acKind - , acName - - -- * AliasContextKind - , AliasContextKind (..) - - -- * CloudWorkspaceId - , CloudWorkspaceId - , cloudWorkspaceId - , cwiRepoId - , cwiName - ) where - -import Network.Google.Debugger.Types.Product -import Network.Google.Debugger.Types.Sum -import Network.Google.Prelude - --- | Default request referring to version 'v2' of the Stackdriver Debugger API. This contains the host and root path used as a starting point for constructing service requests. -debuggerService :: ServiceConfig -debuggerService - = defaultService (ServiceId "clouddebugger:v2") - "clouddebugger.googleapis.com" - --- | Use Stackdriver Debugger -cloudDebuggerScope :: Proxy '["https://www.googleapis.com/auth/cloud_debugger"] -cloudDebuggerScope = Proxy - --- | View and manage your data across Google Cloud Platform services -cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy diff --git a/gen/Network/Google/Debugger/Types/Product.hs b/gen/Network/Google/Debugger/Types/Product.hs deleted file mode 100644 --- a/gen/Network/Google/Debugger/Types/Product.hs +++ /dev/null @@ -1,1950 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} - -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Debugger.Types.Product --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.Debugger.Types.Product where - -import Network.Google.Debugger.Types.Sum -import Network.Google.Prelude - --- | Response for registering a debuggee. --- --- /See:/ 'registerDebuggeeResponse' smart constructor. -newtype RegisterDebuggeeResponse = - RegisterDebuggeeResponse' - { _rdrDebuggee :: Maybe Debuggee - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterDebuggeeResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rdrDebuggee' -registerDebuggeeResponse - :: RegisterDebuggeeResponse -registerDebuggeeResponse = RegisterDebuggeeResponse' {_rdrDebuggee = Nothing} - - --- | Debuggee resource. The field \`id\` is guaranteed to be set (in addition --- to the echoed fields). If the field \`is_disabled\` is set to \`true\`, --- the agent should disable itself by removing all breakpoints and --- detaching from the application. It should however continue to poll --- \`RegisterDebuggee\` until reenabled. -rdrDebuggee :: Lens' RegisterDebuggeeResponse (Maybe Debuggee) -rdrDebuggee - = lens _rdrDebuggee (\ s a -> s{_rdrDebuggee = a}) - -instance FromJSON RegisterDebuggeeResponse where - parseJSON - = withObject "RegisterDebuggeeResponse" - (\ o -> - RegisterDebuggeeResponse' <$> (o .:? "debuggee")) - -instance ToJSON RegisterDebuggeeResponse where - toJSON RegisterDebuggeeResponse'{..} - = object - (catMaybes [("debuggee" .=) <$> _rdrDebuggee]) - --- | A SourceContext is a reference to a tree of files. A SourceContext --- together with a path point to a unique revision of a single file or --- directory. --- --- /See:/ 'sourceContext' smart constructor. -data SourceContext = - SourceContext' - { _scCloudWorkspace :: !(Maybe CloudWorkspaceSourceContext) - , _scCloudRepo :: !(Maybe CloudRepoSourceContext) - , _scGerrit :: !(Maybe GerritSourceContext) - , _scGit :: !(Maybe GitSourceContext) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'scCloudWorkspace' --- --- * 'scCloudRepo' --- --- * 'scGerrit' --- --- * 'scGit' -sourceContext - :: SourceContext -sourceContext = - SourceContext' - { _scCloudWorkspace = Nothing - , _scCloudRepo = Nothing - , _scGerrit = Nothing - , _scGit = Nothing - } - - --- | A SourceContext referring to a snapshot in a cloud workspace. -scCloudWorkspace :: Lens' SourceContext (Maybe CloudWorkspaceSourceContext) -scCloudWorkspace - = lens _scCloudWorkspace - (\ s a -> s{_scCloudWorkspace = a}) - --- | A SourceContext referring to a revision in a cloud repo. -scCloudRepo :: Lens' SourceContext (Maybe CloudRepoSourceContext) -scCloudRepo - = lens _scCloudRepo (\ s a -> s{_scCloudRepo = a}) - --- | A SourceContext referring to a Gerrit project. -scGerrit :: Lens' SourceContext (Maybe GerritSourceContext) -scGerrit = lens _scGerrit (\ s a -> s{_scGerrit = a}) - --- | A SourceContext referring to any third party Git repo (e.g. GitHub). -scGit :: Lens' SourceContext (Maybe GitSourceContext) -scGit = lens _scGit (\ s a -> s{_scGit = a}) - -instance FromJSON SourceContext where - parseJSON - = withObject "SourceContext" - (\ o -> - SourceContext' <$> - (o .:? "cloudWorkspace") <*> (o .:? "cloudRepo") <*> - (o .:? "gerrit") - <*> (o .:? "git")) - -instance ToJSON SourceContext where - toJSON SourceContext'{..} - = object - (catMaybes - [("cloudWorkspace" .=) <$> _scCloudWorkspace, - ("cloudRepo" .=) <$> _scCloudRepo, - ("gerrit" .=) <$> _scGerrit, ("git" .=) <$> _scGit]) - --- | Response for setting a breakpoint. --- --- /See:/ 'setBreakpointResponse' smart constructor. -newtype SetBreakpointResponse = - SetBreakpointResponse' - { _sbrBreakpoint :: Maybe Breakpoint - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SetBreakpointResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sbrBreakpoint' -setBreakpointResponse - :: SetBreakpointResponse -setBreakpointResponse = SetBreakpointResponse' {_sbrBreakpoint = Nothing} - - --- | Breakpoint resource. The field \`id\` is guaranteed to be set (in --- addition to the echoed fileds). -sbrBreakpoint :: Lens' SetBreakpointResponse (Maybe Breakpoint) -sbrBreakpoint - = lens _sbrBreakpoint - (\ s a -> s{_sbrBreakpoint = a}) - -instance FromJSON SetBreakpointResponse where - parseJSON - = withObject "SetBreakpointResponse" - (\ o -> - SetBreakpointResponse' <$> (o .:? "breakpoint")) - -instance ToJSON SetBreakpointResponse where - toJSON SetBreakpointResponse'{..} - = object - (catMaybes [("breakpoint" .=) <$> _sbrBreakpoint]) - --- | A generic empty message that you can re-use to avoid defining duplicated --- empty messages in your APIs. A typical example is to use it as the --- request or the response type of an API method. For instance: service Foo --- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The --- JSON representation for \`Empty\` is empty JSON object \`{}\`. --- --- /See:/ 'empty' smart constructor. -data Empty = - Empty' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Empty' with the minimum fields required to make a request. --- -empty - :: Empty -empty = Empty' - - -instance FromJSON Empty where - parseJSON = withObject "Empty" (\ o -> pure Empty') - -instance ToJSON Empty where - toJSON = const emptyObject - --- | Response for updating an active breakpoint. The message is defined to --- allow future extensions. --- --- /See:/ 'updateActiveBreakpointResponse' smart constructor. -data UpdateActiveBreakpointResponse = - UpdateActiveBreakpointResponse' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateActiveBreakpointResponse' with the minimum fields required to make a request. --- -updateActiveBreakpointResponse - :: UpdateActiveBreakpointResponse -updateActiveBreakpointResponse = UpdateActiveBreakpointResponse' - - -instance FromJSON UpdateActiveBreakpointResponse - where - parseJSON - = withObject "UpdateActiveBreakpointResponse" - (\ o -> pure UpdateActiveBreakpointResponse') - -instance ToJSON UpdateActiveBreakpointResponse where - toJSON = const emptyObject - --- | A SourceContext referring to a Gerrit project. --- --- /See:/ 'gerritSourceContext' smart constructor. -data GerritSourceContext = - GerritSourceContext' - { _gscGerritProject :: !(Maybe Text) - , _gscAliasName :: !(Maybe Text) - , _gscRevisionId :: !(Maybe Text) - , _gscHostURI :: !(Maybe Text) - , _gscAliasContext :: !(Maybe AliasContext) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GerritSourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gscGerritProject' --- --- * 'gscAliasName' --- --- * 'gscRevisionId' --- --- * 'gscHostURI' --- --- * 'gscAliasContext' -gerritSourceContext - :: GerritSourceContext -gerritSourceContext = - GerritSourceContext' - { _gscGerritProject = Nothing - , _gscAliasName = Nothing - , _gscRevisionId = Nothing - , _gscHostURI = Nothing - , _gscAliasContext = Nothing - } - - --- | The full project name within the host. Projects may be nested, so --- \"project\/subproject\" is a valid project name. The \"repo name\" is --- hostURI\/project. -gscGerritProject :: Lens' GerritSourceContext (Maybe Text) -gscGerritProject - = lens _gscGerritProject - (\ s a -> s{_gscGerritProject = a}) - --- | The name of an alias (branch, tag, etc.). -gscAliasName :: Lens' GerritSourceContext (Maybe Text) -gscAliasName - = lens _gscAliasName (\ s a -> s{_gscAliasName = a}) - --- | A revision (commit) ID. -gscRevisionId :: Lens' GerritSourceContext (Maybe Text) -gscRevisionId - = lens _gscRevisionId - (\ s a -> s{_gscRevisionId = a}) - --- | The URI of a running Gerrit instance. -gscHostURI :: Lens' GerritSourceContext (Maybe Text) -gscHostURI - = lens _gscHostURI (\ s a -> s{_gscHostURI = a}) - --- | An alias, which may be a branch or tag. -gscAliasContext :: Lens' GerritSourceContext (Maybe AliasContext) -gscAliasContext - = lens _gscAliasContext - (\ s a -> s{_gscAliasContext = a}) - -instance FromJSON GerritSourceContext where - parseJSON - = withObject "GerritSourceContext" - (\ o -> - GerritSourceContext' <$> - (o .:? "gerritProject") <*> (o .:? "aliasName") <*> - (o .:? "revisionId") - <*> (o .:? "hostUri") - <*> (o .:? "aliasContext")) - -instance ToJSON GerritSourceContext where - toJSON GerritSourceContext'{..} - = object - (catMaybes - [("gerritProject" .=) <$> _gscGerritProject, - ("aliasName" .=) <$> _gscAliasName, - ("revisionId" .=) <$> _gscRevisionId, - ("hostUri" .=) <$> _gscHostURI, - ("aliasContext" .=) <$> _gscAliasContext]) - --- | A unique identifier for a cloud repo. --- --- /See:/ 'repoId' smart constructor. -data RepoId = - RepoId' - { _riUid :: !(Maybe Text) - , _riProjectRepoId :: !(Maybe ProjectRepoId) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RepoId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'riUid' --- --- * 'riProjectRepoId' -repoId - :: RepoId -repoId = RepoId' {_riUid = Nothing, _riProjectRepoId = Nothing} - - --- | A server-assigned, globally unique identifier. -riUid :: Lens' RepoId (Maybe Text) -riUid = lens _riUid (\ s a -> s{_riUid = a}) - --- | A combination of a project ID and a repo name. -riProjectRepoId :: Lens' RepoId (Maybe ProjectRepoId) -riProjectRepoId - = lens _riProjectRepoId - (\ s a -> s{_riProjectRepoId = a}) - -instance FromJSON RepoId where - parseJSON - = withObject "RepoId" - (\ o -> - RepoId' <$> - (o .:? "uid") <*> (o .:? "projectRepoId")) - -instance ToJSON RepoId where - toJSON RepoId'{..} - = object - (catMaybes - [("uid" .=) <$> _riUid, - ("projectRepoId" .=) <$> _riProjectRepoId]) - --- | Labels with user defined metadata. --- --- /See:/ 'extendedSourceContextLabels' smart constructor. -newtype ExtendedSourceContextLabels = - ExtendedSourceContextLabels' - { _esclAddtional :: HashMap Text Text - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExtendedSourceContextLabels' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'esclAddtional' -extendedSourceContextLabels - :: HashMap Text Text -- ^ 'esclAddtional' - -> ExtendedSourceContextLabels -extendedSourceContextLabels pEsclAddtional_ = - ExtendedSourceContextLabels' {_esclAddtional = _Coerce # pEsclAddtional_} - - -esclAddtional :: Lens' ExtendedSourceContextLabels (HashMap Text Text) -esclAddtional - = lens _esclAddtional - (\ s a -> s{_esclAddtional = a}) - . _Coerce - -instance FromJSON ExtendedSourceContextLabels where - parseJSON - = withObject "ExtendedSourceContextLabels" - (\ o -> - ExtendedSourceContextLabels' <$> (parseJSONObject o)) - -instance ToJSON ExtendedSourceContextLabels where - toJSON = toJSON . _esclAddtional - --- | Selects a repo using a Google Cloud Platform project ID (e.g. --- winged-cargo-31) and a repo name within that project. --- --- /See:/ 'projectRepoId' smart constructor. -data ProjectRepoId = - ProjectRepoId' - { _priRepoName :: !(Maybe Text) - , _priProjectId :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectRepoId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'priRepoName' --- --- * 'priProjectId' -projectRepoId - :: ProjectRepoId -projectRepoId = ProjectRepoId' {_priRepoName = Nothing, _priProjectId = Nothing} - - --- | The name of the repo. Leave empty for the default repo. -priRepoName :: Lens' ProjectRepoId (Maybe Text) -priRepoName - = lens _priRepoName (\ s a -> s{_priRepoName = a}) - --- | The ID of the project. -priProjectId :: Lens' ProjectRepoId (Maybe Text) -priProjectId - = lens _priProjectId (\ s a -> s{_priProjectId = a}) - -instance FromJSON ProjectRepoId where - parseJSON - = withObject "ProjectRepoId" - (\ o -> - ProjectRepoId' <$> - (o .:? "repoName") <*> (o .:? "projectId")) - -instance ToJSON ProjectRepoId where - toJSON ProjectRepoId'{..} - = object - (catMaybes - [("repoName" .=) <$> _priRepoName, - ("projectId" .=) <$> _priProjectId]) - --- | Represents a message with parameters. --- --- /See:/ 'formatMessage' smart constructor. -data FormatMessage = - FormatMessage' - { _fmFormat :: !(Maybe Text) - , _fmParameters :: !(Maybe [Text]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FormatMessage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fmFormat' --- --- * 'fmParameters' -formatMessage - :: FormatMessage -formatMessage = FormatMessage' {_fmFormat = Nothing, _fmParameters = Nothing} - - --- | Format template for the message. The \`format\` uses placeholders --- \`$0\`, \`$1\`, etc. to reference parameters. \`$$\` can be used to --- denote the \`$\` character. Examples: * \`Failed to load \'$0\' which --- helps debug $1 the first time it is loaded. Again, $0 is very --- important.\` * \`Please pay $$10 to use $0 instead of $1.\` -fmFormat :: Lens' FormatMessage (Maybe Text) -fmFormat = lens _fmFormat (\ s a -> s{_fmFormat = a}) - --- | Optional parameters to be embedded into the message. -fmParameters :: Lens' FormatMessage [Text] -fmParameters - = lens _fmParameters (\ s a -> s{_fmParameters = a}) - . _Default - . _Coerce - -instance FromJSON FormatMessage where - parseJSON - = withObject "FormatMessage" - (\ o -> - FormatMessage' <$> - (o .:? "format") <*> (o .:? "parameters" .!= mempty)) - -instance ToJSON FormatMessage where - toJSON FormatMessage'{..} - = object - (catMaybes - [("format" .=) <$> _fmFormat, - ("parameters" .=) <$> _fmParameters]) - --- | Represents the breakpoint specification, status and results. --- --- /See:/ 'breakpoint' smart constructor. -data Breakpoint = - Breakpoint' - { _bStatus :: !(Maybe StatusMessage) - , _bLogLevel :: !(Maybe BreakpointLogLevel) - , _bLocation :: !(Maybe SourceLocation) - , _bAction :: !(Maybe BreakpointAction) - , _bFinalTime :: !(Maybe DateTime') - , _bExpressions :: !(Maybe [Text]) - , _bLogMessageFormat :: !(Maybe Text) - , _bId :: !(Maybe Text) - , _bLabels :: !(Maybe BreakpointLabels) - , _bUserEmail :: !(Maybe Text) - , _bVariableTable :: !(Maybe [Variable]) - , _bStackFrames :: !(Maybe [StackFrame]) - , _bCondition :: !(Maybe Text) - , _bEvaluatedExpressions :: !(Maybe [Variable]) - , _bCreateTime :: !(Maybe DateTime') - , _bIsFinalState :: !(Maybe Bool) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Breakpoint' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'bStatus' --- --- * 'bLogLevel' --- --- * 'bLocation' --- --- * 'bAction' --- --- * 'bFinalTime' --- --- * 'bExpressions' --- --- * 'bLogMessageFormat' --- --- * 'bId' --- --- * 'bLabels' --- --- * 'bUserEmail' --- --- * 'bVariableTable' --- --- * 'bStackFrames' --- --- * 'bCondition' --- --- * 'bEvaluatedExpressions' --- --- * 'bCreateTime' --- --- * 'bIsFinalState' -breakpoint - :: Breakpoint -breakpoint = - Breakpoint' - { _bStatus = Nothing - , _bLogLevel = Nothing - , _bLocation = Nothing - , _bAction = Nothing - , _bFinalTime = Nothing - , _bExpressions = Nothing - , _bLogMessageFormat = Nothing - , _bId = Nothing - , _bLabels = Nothing - , _bUserEmail = Nothing - , _bVariableTable = Nothing - , _bStackFrames = Nothing - , _bCondition = Nothing - , _bEvaluatedExpressions = Nothing - , _bCreateTime = Nothing - , _bIsFinalState = Nothing - } - - --- | Breakpoint status. The status includes an error flag and a human --- readable message. This field is usually unset. The message can be either --- informational or an error message. Regardless, clients should always --- display the text message back to the user. Error status indicates --- complete failure of the breakpoint. Example (non-final state): \`Still --- loading symbols...\` Examples (final state): * \`Invalid line number\` --- referring to location * \`Field f not found in class C\` referring to --- condition -bStatus :: Lens' Breakpoint (Maybe StatusMessage) -bStatus = lens _bStatus (\ s a -> s{_bStatus = a}) - --- | Indicates the severity of the log. Only relevant when action is \`LOG\`. -bLogLevel :: Lens' Breakpoint (Maybe BreakpointLogLevel) -bLogLevel - = lens _bLogLevel (\ s a -> s{_bLogLevel = a}) - --- | Breakpoint source location. -bLocation :: Lens' Breakpoint (Maybe SourceLocation) -bLocation - = lens _bLocation (\ s a -> s{_bLocation = a}) - --- | Action that the agent should perform when the code at the breakpoint --- location is hit. -bAction :: Lens' Breakpoint (Maybe BreakpointAction) -bAction = lens _bAction (\ s a -> s{_bAction = a}) - --- | Time this breakpoint was finalized as seen by the server in seconds --- resolution. -bFinalTime :: Lens' Breakpoint (Maybe UTCTime) -bFinalTime - = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) . - mapping _DateTime - --- | List of read-only expressions to evaluate at the breakpoint location. --- The expressions are composed using expressions in the programming --- language at the source location. If the breakpoint action is \`LOG\`, --- the evaluated expressions are included in log statements. -bExpressions :: Lens' Breakpoint [Text] -bExpressions - = lens _bExpressions (\ s a -> s{_bExpressions = a}) - . _Default - . _Coerce - --- | Only relevant when action is \`LOG\`. Defines the message to log when --- the breakpoint hits. The message may include parameter placeholders --- \`$0\`, \`$1\`, etc. These placeholders are replaced with the evaluated --- value of the appropriate expression. Expressions not referenced in --- \`log_message_format\` are not logged. Example: \`Message received, id = --- $0, count = $1\` with \`expressions\` = \`[ message.id, message.count --- ]\`. -bLogMessageFormat :: Lens' Breakpoint (Maybe Text) -bLogMessageFormat - = lens _bLogMessageFormat - (\ s a -> s{_bLogMessageFormat = a}) - --- | Breakpoint identifier, unique in the scope of the debuggee. -bId :: Lens' Breakpoint (Maybe Text) -bId = lens _bId (\ s a -> s{_bId = a}) - --- | A set of custom breakpoint properties, populated by the agent, to be --- displayed to the user. -bLabels :: Lens' Breakpoint (Maybe BreakpointLabels) -bLabels = lens _bLabels (\ s a -> s{_bLabels = a}) - --- | E-mail address of the user that created this breakpoint -bUserEmail :: Lens' Breakpoint (Maybe Text) -bUserEmail - = lens _bUserEmail (\ s a -> s{_bUserEmail = a}) - --- | The \`variable_table\` exists to aid with computation, memory and --- network traffic optimization. It enables storing a variable once and --- reference it from multiple variables, including variables stored in the --- \`variable_table\` itself. For example, the same \`this\` object, which --- may appear at many levels of the stack, can have all of its data stored --- once in this table. The stack frame variables then would hold only a --- reference to it. The variable \`var_table_index\` field is an index into --- this repeated field. The stored objects are nameless and get their name --- from the referencing variable. The effective variable is a merge of the --- referencing variable and the referenced variable. -bVariableTable :: Lens' Breakpoint [Variable] -bVariableTable - = lens _bVariableTable - (\ s a -> s{_bVariableTable = a}) - . _Default - . _Coerce - --- | The stack at breakpoint time, where stack_frames[0] represents the most --- recently entered function. -bStackFrames :: Lens' Breakpoint [StackFrame] -bStackFrames - = lens _bStackFrames (\ s a -> s{_bStackFrames = a}) - . _Default - . _Coerce - --- | Condition that triggers the breakpoint. The condition is a compound --- boolean expression composed using expressions in a programming language --- at the source location. -bCondition :: Lens' Breakpoint (Maybe Text) -bCondition - = lens _bCondition (\ s a -> s{_bCondition = a}) - --- | Values of evaluated expressions at breakpoint time. The evaluated --- expressions appear in exactly the same order they are listed in the --- \`expressions\` field. The \`name\` field holds the original expression --- text, the \`value\` or \`members\` field holds the result of the --- evaluated expression. If the expression cannot be evaluated, the --- \`status\` inside the \`Variable\` will indicate an error and contain --- the error text. -bEvaluatedExpressions :: Lens' Breakpoint [Variable] -bEvaluatedExpressions - = lens _bEvaluatedExpressions - (\ s a -> s{_bEvaluatedExpressions = a}) - . _Default - . _Coerce - --- | Time this breakpoint was created by the server in seconds resolution. -bCreateTime :: Lens' Breakpoint (Maybe UTCTime) -bCreateTime - = lens _bCreateTime (\ s a -> s{_bCreateTime = a}) . - mapping _DateTime - --- | When true, indicates that this is a final result and the breakpoint --- state will not change from here on. -bIsFinalState :: Lens' Breakpoint (Maybe Bool) -bIsFinalState - = lens _bIsFinalState - (\ s a -> s{_bIsFinalState = a}) - -instance FromJSON Breakpoint where - parseJSON - = withObject "Breakpoint" - (\ o -> - Breakpoint' <$> - (o .:? "status") <*> (o .:? "logLevel") <*> - (o .:? "location") - <*> (o .:? "action") - <*> (o .:? "finalTime") - <*> (o .:? "expressions" .!= mempty) - <*> (o .:? "logMessageFormat") - <*> (o .:? "id") - <*> (o .:? "labels") - <*> (o .:? "userEmail") - <*> (o .:? "variableTable" .!= mempty) - <*> (o .:? "stackFrames" .!= mempty) - <*> (o .:? "condition") - <*> (o .:? "evaluatedExpressions" .!= mempty) - <*> (o .:? "createTime") - <*> (o .:? "isFinalState")) - -instance ToJSON Breakpoint where - toJSON Breakpoint'{..} - = object - (catMaybes - [("status" .=) <$> _bStatus, - ("logLevel" .=) <$> _bLogLevel, - ("location" .=) <$> _bLocation, - ("action" .=) <$> _bAction, - ("finalTime" .=) <$> _bFinalTime, - ("expressions" .=) <$> _bExpressions, - ("logMessageFormat" .=) <$> _bLogMessageFormat, - ("id" .=) <$> _bId, ("labels" .=) <$> _bLabels, - ("userEmail" .=) <$> _bUserEmail, - ("variableTable" .=) <$> _bVariableTable, - ("stackFrames" .=) <$> _bStackFrames, - ("condition" .=) <$> _bCondition, - ("evaluatedExpressions" .=) <$> - _bEvaluatedExpressions, - ("createTime" .=) <$> _bCreateTime, - ("isFinalState" .=) <$> _bIsFinalState]) - --- | A set of custom breakpoint properties, populated by the agent, to be --- displayed to the user. --- --- /See:/ 'breakpointLabels' smart constructor. -newtype BreakpointLabels = - BreakpointLabels' - { _blAddtional :: HashMap Text Text - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'BreakpointLabels' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'blAddtional' -breakpointLabels - :: HashMap Text Text -- ^ 'blAddtional' - -> BreakpointLabels -breakpointLabels pBlAddtional_ = - BreakpointLabels' {_blAddtional = _Coerce # pBlAddtional_} - - -blAddtional :: Lens' BreakpointLabels (HashMap Text Text) -blAddtional - = lens _blAddtional (\ s a -> s{_blAddtional = a}) . - _Coerce - -instance FromJSON BreakpointLabels where - parseJSON - = withObject "BreakpointLabels" - (\ o -> BreakpointLabels' <$> (parseJSONObject o)) - -instance ToJSON BreakpointLabels where - toJSON = toJSON . _blAddtional - --- | Response for getting breakpoint information. --- --- /See:/ 'getBreakpointResponse' smart constructor. -newtype GetBreakpointResponse = - GetBreakpointResponse' - { _gbrBreakpoint :: Maybe Breakpoint - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetBreakpointResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gbrBreakpoint' -getBreakpointResponse - :: GetBreakpointResponse -getBreakpointResponse = GetBreakpointResponse' {_gbrBreakpoint = Nothing} - - --- | Complete breakpoint state. The fields \`id\` and \`location\` are --- guaranteed to be set. -gbrBreakpoint :: Lens' GetBreakpointResponse (Maybe Breakpoint) -gbrBreakpoint - = lens _gbrBreakpoint - (\ s a -> s{_gbrBreakpoint = a}) - -instance FromJSON GetBreakpointResponse where - parseJSON - = withObject "GetBreakpointResponse" - (\ o -> - GetBreakpointResponse' <$> (o .:? "breakpoint")) - -instance ToJSON GetBreakpointResponse where - toJSON GetBreakpointResponse'{..} - = object - (catMaybes [("breakpoint" .=) <$> _gbrBreakpoint]) - --- | Represents a variable or an argument possibly of a compound object type. --- Note how the following variables are represented: 1) A simple variable: --- int x = 5 { name: \"x\", value: \"5\", type: \"int\" } \/\/ Captured --- variable 2) A compound object: struct T { int m1; int m2; }; T x = { 3, --- 7 }; { \/\/ Captured variable name: \"x\", type: \"T\", members { name: --- \"m1\", value: \"3\", type: \"int\" }, members { name: \"m2\", value: --- \"7\", type: \"int\" } } 3) A pointer where the pointee was captured: T --- x = { 3, 7 }; T* p = &x; { \/\/ Captured variable name: \"p\", type: --- \"T*\", value: \"0x00500500\", members { name: \"m1\", value: \"3\", --- type: \"int\" }, members { name: \"m2\", value: \"7\", type: \"int\" } } --- 4) A pointer where the pointee was not captured: T* p = new T; { \/\/ --- Captured variable name: \"p\", type: \"T*\", value: \"0x00400400\" --- status { is_error: true, description { format: \"unavailable\" } } } The --- status should describe the reason for the missing value, such as \`\`, --- \`\`, \`\`. Note that a null pointer should not have members. 5) An --- unnamed value: int* p = new int(7); { \/\/ Captured variable name: --- \"p\", value: \"0x00500500\", type: \"int*\", members { value: \"7\", --- type: \"int\" } } 6) An unnamed pointer where the pointee was not --- captured: int* p = new int(7); int** pp = &p; { \/\/ Captured variable --- name: \"pp\", value: \"0x00500500\", type: \"int**\", members { value: --- \"0x00400400\", type: \"int*\" status { is_error: true, description: { --- format: \"unavailable\" } } } } } To optimize computation, memory and --- network traffic, variables that repeat in the output multiple times can --- be stored once in a shared variable table and be referenced using the --- \`var_table_index\` field. The variables stored in the shared table are --- nameless and are essentially a partition of the complete variable. To --- reconstruct the complete variable, merge the referencing variable with --- the referenced variable. When using the shared variable table, the --- following variables: T x = { 3, 7 }; T* p = &x; T& r = x; { name: \"x\", --- var_table_index: 3, type: \"T\" } \/\/ Captured variables { name: \"p\", --- value \"0x00500500\", type=\"T*\", var_table_index: 3 } { name: \"r\", --- type=\"T&\", var_table_index: 3 } { \/\/ Shared variable table entry #3: --- members { name: \"m1\", value: \"3\", type: \"int\" }, members { name: --- \"m2\", value: \"7\", type: \"int\" } } Note that the pointer address is --- stored with the referencing variable and not with the referenced --- variable. This allows the referenced variable to be shared between --- pointers and references. The type field is optional. The debugger agent --- may or may not support it. --- --- /See:/ 'variable' smart constructor. -data Variable = - Variable' - { _vStatus :: !(Maybe StatusMessage) - , _vVarTableIndex :: !(Maybe (Textual Int32)) - , _vMembers :: !(Maybe [Variable]) - , _vValue :: !(Maybe Text) - , _vName :: !(Maybe Text) - , _vType :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Variable' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vStatus' --- --- * 'vVarTableIndex' --- --- * 'vMembers' --- --- * 'vValue' --- --- * 'vName' --- --- * 'vType' -variable - :: Variable -variable = - Variable' - { _vStatus = Nothing - , _vVarTableIndex = Nothing - , _vMembers = Nothing - , _vValue = Nothing - , _vName = Nothing - , _vType = Nothing - } - - --- | Status associated with the variable. This field will usually stay unset. --- A status of a single variable only applies to that variable or --- expression. The rest of breakpoint data still remains valid. Variables --- might be reported in error state even when breakpoint is not in final --- state. The message may refer to variable name with \`refers_to\` set to --- \`VARIABLE_NAME\`. Alternatively \`refers_to\` will be set to --- \`VARIABLE_VALUE\`. In either case variable value and members will be --- unset. Example of error message applied to name: \`Invalid expression --- syntax\`. Example of information message applied to value: \`Not --- captured\`. Examples of error message applied to value: * \`Malformed --- string\`, * \`Field f not found in class C\` * \`Null pointer --- dereference\` -vStatus :: Lens' Variable (Maybe StatusMessage) -vStatus = lens _vStatus (\ s a -> s{_vStatus = a}) - --- | Reference to a variable in the shared variable table. More than one --- variable can reference the same variable in the table. The --- \`var_table_index\` field is an index into \`variable_table\` in --- Breakpoint. -vVarTableIndex :: Lens' Variable (Maybe Int32) -vVarTableIndex - = lens _vVarTableIndex - (\ s a -> s{_vVarTableIndex = a}) - . mapping _Coerce - --- | Members contained or pointed to by the variable. -vMembers :: Lens' Variable [Variable] -vMembers - = lens _vMembers (\ s a -> s{_vMembers = a}) . - _Default - . _Coerce - --- | Simple value of the variable. -vValue :: Lens' Variable (Maybe Text) -vValue = lens _vValue (\ s a -> s{_vValue = a}) - --- | Name of the variable, if any. -vName :: Lens' Variable (Maybe Text) -vName = lens _vName (\ s a -> s{_vName = a}) - --- | Variable type (e.g. \`MyClass\`). If the variable is split with --- \`var_table_index\`, \`type\` goes next to \`value\`. The interpretation --- of a type is agent specific. It is recommended to include the dynamic --- type rather than a static type of an object. -vType :: Lens' Variable (Maybe Text) -vType = lens _vType (\ s a -> s{_vType = a}) - -instance FromJSON Variable where - parseJSON - = withObject "Variable" - (\ o -> - Variable' <$> - (o .:? "status") <*> (o .:? "varTableIndex") <*> - (o .:? "members" .!= mempty) - <*> (o .:? "value") - <*> (o .:? "name") - <*> (o .:? "type")) - -instance ToJSON Variable where - toJSON Variable'{..} - = object - (catMaybes - [("status" .=) <$> _vStatus, - ("varTableIndex" .=) <$> _vVarTableIndex, - ("members" .=) <$> _vMembers, - ("value" .=) <$> _vValue, ("name" .=) <$> _vName, - ("type" .=) <$> _vType]) - --- | Response for listing breakpoints. --- --- /See:/ 'listBreakpointsResponse' smart constructor. -data ListBreakpointsResponse = - ListBreakpointsResponse' - { _lbrNextWaitToken :: !(Maybe Text) - , _lbrBreakpoints :: !(Maybe [Breakpoint]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListBreakpointsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lbrNextWaitToken' --- --- * 'lbrBreakpoints' -listBreakpointsResponse - :: ListBreakpointsResponse -listBreakpointsResponse = - ListBreakpointsResponse' - {_lbrNextWaitToken = Nothing, _lbrBreakpoints = Nothing} - - --- | A wait token that can be used in the next call to \`list\` (REST) or --- \`ListBreakpoints\` (RPC) to block until the list of breakpoints has --- changes. -lbrNextWaitToken :: Lens' ListBreakpointsResponse (Maybe Text) -lbrNextWaitToken - = lens _lbrNextWaitToken - (\ s a -> s{_lbrNextWaitToken = a}) - --- | List of breakpoints matching the request. The fields \`id\` and --- \`location\` are guaranteed to be set on each breakpoint. The fields: --- \`stack_frames\`, \`evaluated_expressions\` and \`variable_table\` are --- cleared on each breakpoint regardless of its status. -lbrBreakpoints :: Lens' ListBreakpointsResponse [Breakpoint] -lbrBreakpoints - = lens _lbrBreakpoints - (\ s a -> s{_lbrBreakpoints = a}) - . _Default - . _Coerce - -instance FromJSON ListBreakpointsResponse where - parseJSON - = withObject "ListBreakpointsResponse" - (\ o -> - ListBreakpointsResponse' <$> - (o .:? "nextWaitToken") <*> - (o .:? "breakpoints" .!= mempty)) - -instance ToJSON ListBreakpointsResponse where - toJSON ListBreakpointsResponse'{..} - = object - (catMaybes - [("nextWaitToken" .=) <$> _lbrNextWaitToken, - ("breakpoints" .=) <$> _lbrBreakpoints]) - --- | Response for listing debuggees. --- --- /See:/ 'listDebuggeesResponse' smart constructor. -newtype ListDebuggeesResponse = - ListDebuggeesResponse' - { _ldrDebuggees :: Maybe [Debuggee] - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListDebuggeesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ldrDebuggees' -listDebuggeesResponse - :: ListDebuggeesResponse -listDebuggeesResponse = ListDebuggeesResponse' {_ldrDebuggees = Nothing} - - --- | List of debuggees accessible to the calling user. The fields --- \`debuggee.id\` and \`description\` are guaranteed to be set. The --- \`description\` field is a human readable field provided by agents and --- can be displayed to users. -ldrDebuggees :: Lens' ListDebuggeesResponse [Debuggee] -ldrDebuggees - = lens _ldrDebuggees (\ s a -> s{_ldrDebuggees = a}) - . _Default - . _Coerce - -instance FromJSON ListDebuggeesResponse where - parseJSON - = withObject "ListDebuggeesResponse" - (\ o -> - ListDebuggeesResponse' <$> - (o .:? "debuggees" .!= mempty)) - -instance ToJSON ListDebuggeesResponse where - toJSON ListDebuggeesResponse'{..} - = object - (catMaybes [("debuggees" .=) <$> _ldrDebuggees]) - --- | Request to update an active breakpoint. --- --- /See:/ 'updateActiveBreakpointRequest' smart constructor. -newtype UpdateActiveBreakpointRequest = - UpdateActiveBreakpointRequest' - { _uabrBreakpoint :: Maybe Breakpoint - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateActiveBreakpointRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'uabrBreakpoint' -updateActiveBreakpointRequest - :: UpdateActiveBreakpointRequest -updateActiveBreakpointRequest = - UpdateActiveBreakpointRequest' {_uabrBreakpoint = Nothing} - - --- | Updated breakpoint information. The field \`id\` must be set. The agent --- must echo all Breakpoint specification fields in the update. -uabrBreakpoint :: Lens' UpdateActiveBreakpointRequest (Maybe Breakpoint) -uabrBreakpoint - = lens _uabrBreakpoint - (\ s a -> s{_uabrBreakpoint = a}) - -instance FromJSON UpdateActiveBreakpointRequest where - parseJSON - = withObject "UpdateActiveBreakpointRequest" - (\ o -> - UpdateActiveBreakpointRequest' <$> - (o .:? "breakpoint")) - -instance ToJSON UpdateActiveBreakpointRequest where - toJSON UpdateActiveBreakpointRequest'{..} - = object - (catMaybes [("breakpoint" .=) <$> _uabrBreakpoint]) - --- | Represents a contextual status message. The message can indicate an --- error or informational status, and refer to specific parts of the --- containing object. For example, the \`Breakpoint.status\` field can --- indicate an error referring to the \`BREAKPOINT_SOURCE_LOCATION\` with --- the message \`Location not found\`. --- --- /See:/ 'statusMessage' smart constructor. -data StatusMessage = - StatusMessage' - { _smRefersTo :: !(Maybe StatusMessageRefersTo) - , _smIsError :: !(Maybe Bool) - , _smDescription :: !(Maybe FormatMessage) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StatusMessage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'smRefersTo' --- --- * 'smIsError' --- --- * 'smDescription' -statusMessage - :: StatusMessage -statusMessage = - StatusMessage' - {_smRefersTo = Nothing, _smIsError = Nothing, _smDescription = Nothing} - - --- | Reference to which the message applies. -smRefersTo :: Lens' StatusMessage (Maybe StatusMessageRefersTo) -smRefersTo - = lens _smRefersTo (\ s a -> s{_smRefersTo = a}) - --- | Distinguishes errors from informational messages. -smIsError :: Lens' StatusMessage (Maybe Bool) -smIsError - = lens _smIsError (\ s a -> s{_smIsError = a}) - --- | Status message text. -smDescription :: Lens' StatusMessage (Maybe FormatMessage) -smDescription - = lens _smDescription - (\ s a -> s{_smDescription = a}) - -instance FromJSON StatusMessage where - parseJSON - = withObject "StatusMessage" - (\ o -> - StatusMessage' <$> - (o .:? "refersTo") <*> (o .:? "isError") <*> - (o .:? "description")) - -instance ToJSON StatusMessage where - toJSON StatusMessage'{..} - = object - (catMaybes - [("refersTo" .=) <$> _smRefersTo, - ("isError" .=) <$> _smIsError, - ("description" .=) <$> _smDescription]) - --- | Response for listing active breakpoints. --- --- /See:/ 'listActiveBreakpointsResponse' smart constructor. -data ListActiveBreakpointsResponse = - ListActiveBreakpointsResponse' - { _labrNextWaitToken :: !(Maybe Text) - , _labrBreakpoints :: !(Maybe [Breakpoint]) - , _labrWaitExpired :: !(Maybe Bool) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListActiveBreakpointsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'labrNextWaitToken' --- --- * 'labrBreakpoints' --- --- * 'labrWaitExpired' -listActiveBreakpointsResponse - :: ListActiveBreakpointsResponse -listActiveBreakpointsResponse = - ListActiveBreakpointsResponse' - { _labrNextWaitToken = Nothing - , _labrBreakpoints = Nothing - , _labrWaitExpired = Nothing - } - - --- | A token that can be used in the next method call to block until the list --- of breakpoints changes. -labrNextWaitToken :: Lens' ListActiveBreakpointsResponse (Maybe Text) -labrNextWaitToken - = lens _labrNextWaitToken - (\ s a -> s{_labrNextWaitToken = a}) - --- | List of all active breakpoints. The fields \`id\` and \`location\` are --- guaranteed to be set on each breakpoint. -labrBreakpoints :: Lens' ListActiveBreakpointsResponse [Breakpoint] -labrBreakpoints - = lens _labrBreakpoints - (\ s a -> s{_labrBreakpoints = a}) - . _Default - . _Coerce - --- | If set to \`true\`, indicates that there is no change to the list of --- active breakpoints and the server-selected timeout has expired. The --- \`breakpoints\` field would be empty and should be ignored. -labrWaitExpired :: Lens' ListActiveBreakpointsResponse (Maybe Bool) -labrWaitExpired - = lens _labrWaitExpired - (\ s a -> s{_labrWaitExpired = a}) - -instance FromJSON ListActiveBreakpointsResponse where - parseJSON - = withObject "ListActiveBreakpointsResponse" - (\ o -> - ListActiveBreakpointsResponse' <$> - (o .:? "nextWaitToken") <*> - (o .:? "breakpoints" .!= mempty) - <*> (o .:? "waitExpired")) - -instance ToJSON ListActiveBreakpointsResponse where - toJSON ListActiveBreakpointsResponse'{..} - = object - (catMaybes - [("nextWaitToken" .=) <$> _labrNextWaitToken, - ("breakpoints" .=) <$> _labrBreakpoints, - ("waitExpired" .=) <$> _labrWaitExpired]) - --- | An ExtendedSourceContext is a SourceContext combined with additional --- details describing the context. --- --- /See:/ 'extendedSourceContext' smart constructor. -data ExtendedSourceContext = - ExtendedSourceContext' - { _escContext :: !(Maybe SourceContext) - , _escLabels :: !(Maybe ExtendedSourceContextLabels) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExtendedSourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'escContext' --- --- * 'escLabels' -extendedSourceContext - :: ExtendedSourceContext -extendedSourceContext = - ExtendedSourceContext' {_escContext = Nothing, _escLabels = Nothing} - - --- | Any source context. -escContext :: Lens' ExtendedSourceContext (Maybe SourceContext) -escContext - = lens _escContext (\ s a -> s{_escContext = a}) - --- | Labels with user defined metadata. -escLabels :: Lens' ExtendedSourceContext (Maybe ExtendedSourceContextLabels) -escLabels - = lens _escLabels (\ s a -> s{_escLabels = a}) - -instance FromJSON ExtendedSourceContext where - parseJSON - = withObject "ExtendedSourceContext" - (\ o -> - ExtendedSourceContext' <$> - (o .:? "context") <*> (o .:? "labels")) - -instance ToJSON ExtendedSourceContext where - toJSON ExtendedSourceContext'{..} - = object - (catMaybes - [("context" .=) <$> _escContext, - ("labels" .=) <$> _escLabels]) - --- | A GitSourceContext denotes a particular revision in a third party Git --- repository (e.g. GitHub). --- --- /See:/ 'gitSourceContext' smart constructor. -data GitSourceContext = - GitSourceContext' - { _gURL :: !(Maybe Text) - , _gRevisionId :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GitSourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gURL' --- --- * 'gRevisionId' -gitSourceContext - :: GitSourceContext -gitSourceContext = GitSourceContext' {_gURL = Nothing, _gRevisionId = Nothing} - - --- | Git repository URL. -gURL :: Lens' GitSourceContext (Maybe Text) -gURL = lens _gURL (\ s a -> s{_gURL = a}) - --- | Git commit hash. required. -gRevisionId :: Lens' GitSourceContext (Maybe Text) -gRevisionId - = lens _gRevisionId (\ s a -> s{_gRevisionId = a}) - -instance FromJSON GitSourceContext where - parseJSON - = withObject "GitSourceContext" - (\ o -> - GitSourceContext' <$> - (o .:? "url") <*> (o .:? "revisionId")) - -instance ToJSON GitSourceContext where - toJSON GitSourceContext'{..} - = object - (catMaybes - [("url" .=) <$> _gURL, - ("revisionId" .=) <$> _gRevisionId]) - --- | Represents a location in the source code. --- --- /See:/ 'sourceLocation' smart constructor. -data SourceLocation = - SourceLocation' - { _slPath :: !(Maybe Text) - , _slLine :: !(Maybe (Textual Int32)) - , _slColumn :: !(Maybe (Textual Int32)) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SourceLocation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'slPath' --- --- * 'slLine' --- --- * 'slColumn' -sourceLocation - :: SourceLocation -sourceLocation = - SourceLocation' {_slPath = Nothing, _slLine = Nothing, _slColumn = Nothing} - - --- | Path to the source file within the source context of the target binary. -slPath :: Lens' SourceLocation (Maybe Text) -slPath = lens _slPath (\ s a -> s{_slPath = a}) - --- | Line inside the file. The first line in the file has the value \`1\`. -slLine :: Lens' SourceLocation (Maybe Int32) -slLine - = lens _slLine (\ s a -> s{_slLine = a}) . - mapping _Coerce - --- | Column within a line. The first column in a line as the value \`1\`. --- Agents that do not support setting breakpoints on specific columns --- ignore this field. -slColumn :: Lens' SourceLocation (Maybe Int32) -slColumn - = lens _slColumn (\ s a -> s{_slColumn = a}) . - mapping _Coerce - -instance FromJSON SourceLocation where - parseJSON - = withObject "SourceLocation" - (\ o -> - SourceLocation' <$> - (o .:? "path") <*> (o .:? "line") <*> - (o .:? "column")) - -instance ToJSON SourceLocation where - toJSON SourceLocation'{..} - = object - (catMaybes - [("path" .=) <$> _slPath, ("line" .=) <$> _slLine, - ("column" .=) <$> _slColumn]) - --- | Represents a stack frame context. --- --- /See:/ 'stackFrame' smart constructor. -data StackFrame = - StackFrame' - { _sfFunction :: !(Maybe Text) - , _sfLocation :: !(Maybe SourceLocation) - , _sfArguments :: !(Maybe [Variable]) - , _sfLocals :: !(Maybe [Variable]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackFrame' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sfFunction' --- --- * 'sfLocation' --- --- * 'sfArguments' --- --- * 'sfLocals' -stackFrame - :: StackFrame -stackFrame = - StackFrame' - { _sfFunction = Nothing - , _sfLocation = Nothing - , _sfArguments = Nothing - , _sfLocals = Nothing - } - - --- | Demangled function name at the call site. -sfFunction :: Lens' StackFrame (Maybe Text) -sfFunction - = lens _sfFunction (\ s a -> s{_sfFunction = a}) - --- | Source location of the call site. -sfLocation :: Lens' StackFrame (Maybe SourceLocation) -sfLocation - = lens _sfLocation (\ s a -> s{_sfLocation = a}) - --- | Set of arguments passed to this function. Note that this might not be --- populated for all stack frames. -sfArguments :: Lens' StackFrame [Variable] -sfArguments - = lens _sfArguments (\ s a -> s{_sfArguments = a}) . - _Default - . _Coerce - --- | Set of local variables at the stack frame location. Note that this might --- not be populated for all stack frames. -sfLocals :: Lens' StackFrame [Variable] -sfLocals - = lens _sfLocals (\ s a -> s{_sfLocals = a}) . - _Default - . _Coerce - -instance FromJSON StackFrame where - parseJSON - = withObject "StackFrame" - (\ o -> - StackFrame' <$> - (o .:? "function") <*> (o .:? "location") <*> - (o .:? "arguments" .!= mempty) - <*> (o .:? "locals" .!= mempty)) - -instance ToJSON StackFrame where - toJSON StackFrame'{..} - = object - (catMaybes - [("function" .=) <$> _sfFunction, - ("location" .=) <$> _sfLocation, - ("arguments" .=) <$> _sfArguments, - ("locals" .=) <$> _sfLocals]) - --- | A CloudRepoSourceContext denotes a particular revision in a cloud repo --- (a repo hosted by the Google Cloud Platform). --- --- /See:/ 'cloudRepoSourceContext' smart constructor. -data CloudRepoSourceContext = - CloudRepoSourceContext' - { _crscRepoId :: !(Maybe RepoId) - , _crscAliasName :: !(Maybe Text) - , _crscRevisionId :: !(Maybe Text) - , _crscAliasContext :: !(Maybe AliasContext) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CloudRepoSourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'crscRepoId' --- --- * 'crscAliasName' --- --- * 'crscRevisionId' --- --- * 'crscAliasContext' -cloudRepoSourceContext - :: CloudRepoSourceContext -cloudRepoSourceContext = - CloudRepoSourceContext' - { _crscRepoId = Nothing - , _crscAliasName = Nothing - , _crscRevisionId = Nothing - , _crscAliasContext = Nothing - } - - --- | The ID of the repo. -crscRepoId :: Lens' CloudRepoSourceContext (Maybe RepoId) -crscRepoId - = lens _crscRepoId (\ s a -> s{_crscRepoId = a}) - --- | The name of an alias (branch, tag, etc.). -crscAliasName :: Lens' CloudRepoSourceContext (Maybe Text) -crscAliasName - = lens _crscAliasName - (\ s a -> s{_crscAliasName = a}) - --- | A revision ID. -crscRevisionId :: Lens' CloudRepoSourceContext (Maybe Text) -crscRevisionId - = lens _crscRevisionId - (\ s a -> s{_crscRevisionId = a}) - --- | An alias, which may be a branch or tag. -crscAliasContext :: Lens' CloudRepoSourceContext (Maybe AliasContext) -crscAliasContext - = lens _crscAliasContext - (\ s a -> s{_crscAliasContext = a}) - -instance FromJSON CloudRepoSourceContext where - parseJSON - = withObject "CloudRepoSourceContext" - (\ o -> - CloudRepoSourceContext' <$> - (o .:? "repoId") <*> (o .:? "aliasName") <*> - (o .:? "revisionId") - <*> (o .:? "aliasContext")) - -instance ToJSON CloudRepoSourceContext where - toJSON CloudRepoSourceContext'{..} - = object - (catMaybes - [("repoId" .=) <$> _crscRepoId, - ("aliasName" .=) <$> _crscAliasName, - ("revisionId" .=) <$> _crscRevisionId, - ("aliasContext" .=) <$> _crscAliasContext]) - --- | A set of custom debuggee properties, populated by the agent, to be --- displayed to the user. --- --- /See:/ 'debuggeeLabels' smart constructor. -newtype DebuggeeLabels = - DebuggeeLabels' - { _dlAddtional :: HashMap Text Text - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggeeLabels' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dlAddtional' -debuggeeLabels - :: HashMap Text Text -- ^ 'dlAddtional' - -> DebuggeeLabels -debuggeeLabels pDlAddtional_ = - DebuggeeLabels' {_dlAddtional = _Coerce # pDlAddtional_} - - -dlAddtional :: Lens' DebuggeeLabels (HashMap Text Text) -dlAddtional - = lens _dlAddtional (\ s a -> s{_dlAddtional = a}) . - _Coerce - -instance FromJSON DebuggeeLabels where - parseJSON - = withObject "DebuggeeLabels" - (\ o -> DebuggeeLabels' <$> (parseJSONObject o)) - -instance ToJSON DebuggeeLabels where - toJSON = toJSON . _dlAddtional - --- | Represents the debugged application. The application may include one or --- more replicated processes executing the same code. Each of these --- processes is attached with a debugger agent, carrying out the debugging --- commands. Agents attached to the same debuggee identify themselves as --- such by using exactly the same Debuggee message value when registering. --- --- /See:/ 'debuggee' smart constructor. -data Debuggee = - Debuggee' - { _dStatus :: !(Maybe StatusMessage) - , _dUniquifier :: !(Maybe Text) - , _dProject :: !(Maybe Text) - , _dExtSourceContexts :: !(Maybe [ExtendedSourceContext]) - , _dAgentVersion :: !(Maybe Text) - , _dIsDisabled :: !(Maybe Bool) - , _dId :: !(Maybe Text) - , _dLabels :: !(Maybe DebuggeeLabels) - , _dDescription :: !(Maybe Text) - , _dIsInactive :: !(Maybe Bool) - , _dSourceContexts :: !(Maybe [SourceContext]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Debuggee' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dStatus' --- --- * 'dUniquifier' --- --- * 'dProject' --- --- * 'dExtSourceContexts' --- --- * 'dAgentVersion' --- --- * 'dIsDisabled' --- --- * 'dId' --- --- * 'dLabels' --- --- * 'dDescription' --- --- * 'dIsInactive' --- --- * 'dSourceContexts' -debuggee - :: Debuggee -debuggee = - Debuggee' - { _dStatus = Nothing - , _dUniquifier = Nothing - , _dProject = Nothing - , _dExtSourceContexts = Nothing - , _dAgentVersion = Nothing - , _dIsDisabled = Nothing - , _dId = Nothing - , _dLabels = Nothing - , _dDescription = Nothing - , _dIsInactive = Nothing - , _dSourceContexts = Nothing - } - - --- | Human readable message to be displayed to the user about this debuggee. --- Absence of this field indicates no status. The message can be either --- informational or an error status. -dStatus :: Lens' Debuggee (Maybe StatusMessage) -dStatus = lens _dStatus (\ s a -> s{_dStatus = a}) - --- | Uniquifier to further distinguish the application. It is possible that --- different applications might have identical values in the debuggee --- message, thus, incorrectly identified as a single application by the --- Controller service. This field adds salt to further distinguish the --- application. Agents should consider seeding this field with value that --- identifies the code, binary, configuration and environment. -dUniquifier :: Lens' Debuggee (Maybe Text) -dUniquifier - = lens _dUniquifier (\ s a -> s{_dUniquifier = a}) - --- | Project the debuggee is associated with. Use project number or id when --- registering a Google Cloud Platform project. -dProject :: Lens' Debuggee (Maybe Text) -dProject = lens _dProject (\ s a -> s{_dProject = a}) - --- | References to the locations and revisions of the source code used in the --- deployed application. -dExtSourceContexts :: Lens' Debuggee [ExtendedSourceContext] -dExtSourceContexts - = lens _dExtSourceContexts - (\ s a -> s{_dExtSourceContexts = a}) - . _Default - . _Coerce - --- | Version ID of the agent. Schema: --- \`domain\/language-platform\/vmajor.minor\` (for example --- \`google.com\/java-gcp\/v1.1\`). -dAgentVersion :: Lens' Debuggee (Maybe Text) -dAgentVersion - = lens _dAgentVersion - (\ s a -> s{_dAgentVersion = a}) - --- | If set to \`true\`, indicates that the agent should disable itself and --- detach from the debuggee. -dIsDisabled :: Lens' Debuggee (Maybe Bool) -dIsDisabled - = lens _dIsDisabled (\ s a -> s{_dIsDisabled = a}) - --- | Unique identifier for the debuggee generated by the controller service. -dId :: Lens' Debuggee (Maybe Text) -dId = lens _dId (\ s a -> s{_dId = a}) - --- | A set of custom debuggee properties, populated by the agent, to be --- displayed to the user. -dLabels :: Lens' Debuggee (Maybe DebuggeeLabels) -dLabels = lens _dLabels (\ s a -> s{_dLabels = a}) - --- | Human readable description of the debuggee. Including a human-readable --- project name, environment name and version information is recommended. -dDescription :: Lens' Debuggee (Maybe Text) -dDescription - = lens _dDescription (\ s a -> s{_dDescription = a}) - --- | If set to \`true\`, indicates that Controller service does not detect --- any activity from the debuggee agents and the application is possibly --- stopped. -dIsInactive :: Lens' Debuggee (Maybe Bool) -dIsInactive - = lens _dIsInactive (\ s a -> s{_dIsInactive = a}) - --- | References to the locations and revisions of the source code used in the --- deployed application. -dSourceContexts :: Lens' Debuggee [SourceContext] -dSourceContexts - = lens _dSourceContexts - (\ s a -> s{_dSourceContexts = a}) - . _Default - . _Coerce - -instance FromJSON Debuggee where - parseJSON - = withObject "Debuggee" - (\ o -> - Debuggee' <$> - (o .:? "status") <*> (o .:? "uniquifier") <*> - (o .:? "project") - <*> (o .:? "extSourceContexts" .!= mempty) - <*> (o .:? "agentVersion") - <*> (o .:? "isDisabled") - <*> (o .:? "id") - <*> (o .:? "labels") - <*> (o .:? "description") - <*> (o .:? "isInactive") - <*> (o .:? "sourceContexts" .!= mempty)) - -instance ToJSON Debuggee where - toJSON Debuggee'{..} - = object - (catMaybes - [("status" .=) <$> _dStatus, - ("uniquifier" .=) <$> _dUniquifier, - ("project" .=) <$> _dProject, - ("extSourceContexts" .=) <$> _dExtSourceContexts, - ("agentVersion" .=) <$> _dAgentVersion, - ("isDisabled" .=) <$> _dIsDisabled, - ("id" .=) <$> _dId, ("labels" .=) <$> _dLabels, - ("description" .=) <$> _dDescription, - ("isInactive" .=) <$> _dIsInactive, - ("sourceContexts" .=) <$> _dSourceContexts]) - --- | A CloudWorkspaceSourceContext denotes a workspace at a particular --- snapshot. --- --- /See:/ 'cloudWorkspaceSourceContext' smart constructor. -data CloudWorkspaceSourceContext = - CloudWorkspaceSourceContext' - { _cwscWorkspaceId :: !(Maybe CloudWorkspaceId) - , _cwscSnapshotId :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CloudWorkspaceSourceContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwscWorkspaceId' --- --- * 'cwscSnapshotId' -cloudWorkspaceSourceContext - :: CloudWorkspaceSourceContext -cloudWorkspaceSourceContext = - CloudWorkspaceSourceContext' - {_cwscWorkspaceId = Nothing, _cwscSnapshotId = Nothing} - - --- | The ID of the workspace. -cwscWorkspaceId :: Lens' CloudWorkspaceSourceContext (Maybe CloudWorkspaceId) -cwscWorkspaceId - = lens _cwscWorkspaceId - (\ s a -> s{_cwscWorkspaceId = a}) - --- | The ID of the snapshot. An empty snapshot_id refers to the most recent --- snapshot. -cwscSnapshotId :: Lens' CloudWorkspaceSourceContext (Maybe Text) -cwscSnapshotId - = lens _cwscSnapshotId - (\ s a -> s{_cwscSnapshotId = a}) - -instance FromJSON CloudWorkspaceSourceContext where - parseJSON - = withObject "CloudWorkspaceSourceContext" - (\ o -> - CloudWorkspaceSourceContext' <$> - (o .:? "workspaceId") <*> (o .:? "snapshotId")) - -instance ToJSON CloudWorkspaceSourceContext where - toJSON CloudWorkspaceSourceContext'{..} - = object - (catMaybes - [("workspaceId" .=) <$> _cwscWorkspaceId, - ("snapshotId" .=) <$> _cwscSnapshotId]) - --- | Request to register a debuggee. --- --- /See:/ 'registerDebuggeeRequest' smart constructor. -newtype RegisterDebuggeeRequest = - RegisterDebuggeeRequest' - { _rDebuggee :: Maybe Debuggee - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterDebuggeeRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rDebuggee' -registerDebuggeeRequest - :: RegisterDebuggeeRequest -registerDebuggeeRequest = RegisterDebuggeeRequest' {_rDebuggee = Nothing} - - --- | Debuggee information to register. The fields \`project\`, --- \`uniquifier\`, \`description\` and \`agent_version\` of the debuggee --- must be set. -rDebuggee :: Lens' RegisterDebuggeeRequest (Maybe Debuggee) -rDebuggee - = lens _rDebuggee (\ s a -> s{_rDebuggee = a}) - -instance FromJSON RegisterDebuggeeRequest where - parseJSON - = withObject "RegisterDebuggeeRequest" - (\ o -> - RegisterDebuggeeRequest' <$> (o .:? "debuggee")) - -instance ToJSON RegisterDebuggeeRequest where - toJSON RegisterDebuggeeRequest'{..} - = object (catMaybes [("debuggee" .=) <$> _rDebuggee]) - --- | An alias to a repo revision. --- --- /See:/ 'aliasContext' smart constructor. -data AliasContext = - AliasContext' - { _acKind :: !(Maybe AliasContextKind) - , _acName :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AliasContext' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'acKind' --- --- * 'acName' -aliasContext - :: AliasContext -aliasContext = AliasContext' {_acKind = Nothing, _acName = Nothing} - - --- | The alias kind. -acKind :: Lens' AliasContext (Maybe AliasContextKind) -acKind = lens _acKind (\ s a -> s{_acKind = a}) - --- | The alias name. -acName :: Lens' AliasContext (Maybe Text) -acName = lens _acName (\ s a -> s{_acName = a}) - -instance FromJSON AliasContext where - parseJSON - = withObject "AliasContext" - (\ o -> - AliasContext' <$> (o .:? "kind") <*> (o .:? "name")) - -instance ToJSON AliasContext where - toJSON AliasContext'{..} - = object - (catMaybes - [("kind" .=) <$> _acKind, ("name" .=) <$> _acName]) - --- | A CloudWorkspaceId is a unique identifier for a cloud workspace. A cloud --- workspace is a place associated with a repo where modified files can be --- stored before they are committed. --- --- /See:/ 'cloudWorkspaceId' smart constructor. -data CloudWorkspaceId = - CloudWorkspaceId' - { _cwiRepoId :: !(Maybe RepoId) - , _cwiName :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CloudWorkspaceId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwiRepoId' --- --- * 'cwiName' -cloudWorkspaceId - :: CloudWorkspaceId -cloudWorkspaceId = CloudWorkspaceId' {_cwiRepoId = Nothing, _cwiName = Nothing} - - --- | The ID of the repo containing the workspace. -cwiRepoId :: Lens' CloudWorkspaceId (Maybe RepoId) -cwiRepoId - = lens _cwiRepoId (\ s a -> s{_cwiRepoId = a}) - --- | The unique name of the workspace within the repo. This is the name --- chosen by the client in the Source API\'s CreateWorkspace method. -cwiName :: Lens' CloudWorkspaceId (Maybe Text) -cwiName = lens _cwiName (\ s a -> s{_cwiName = a}) - -instance FromJSON CloudWorkspaceId where - parseJSON - = withObject "CloudWorkspaceId" - (\ o -> - CloudWorkspaceId' <$> - (o .:? "repoId") <*> (o .:? "name")) - -instance ToJSON CloudWorkspaceId where - toJSON CloudWorkspaceId'{..} - = object - (catMaybes - [("repoId" .=) <$> _cwiRepoId, - ("name" .=) <$> _cwiName]) diff --git a/gen/Network/Google/Debugger/Types/Sum.hs b/gen/Network/Google/Debugger/Types/Sum.hs deleted file mode 100644 --- a/gen/Network/Google/Debugger/Types/Sum.hs +++ /dev/null @@ -1,209 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Debugger.Types.Sum --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.Debugger.Types.Sum where - -import Network.Google.Prelude hiding (Bytes) - --- | Reference to which the message applies. -data StatusMessageRefersTo - = Unspecified - -- ^ @UNSPECIFIED@ - -- Status doesn\'t refer to any particular input. - | BreakpointSourceLocation - -- ^ @BREAKPOINT_SOURCE_LOCATION@ - -- Status applies to the breakpoint and is related to its location. - | BreakpointCondition - -- ^ @BREAKPOINT_CONDITION@ - -- Status applies to the breakpoint and is related to its condition. - | BreakpointExpression - -- ^ @BREAKPOINT_EXPRESSION@ - -- Status applies to the breakpoint and is related to its expressions. - | BreakpointAge - -- ^ @BREAKPOINT_AGE@ - -- Status applies to the breakpoint and is related to its age. - | VariableName - -- ^ @VARIABLE_NAME@ - -- Status applies to the entire variable. - | VariableValue - -- ^ @VARIABLE_VALUE@ - -- Status applies to variable value (variable name is valid). - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable StatusMessageRefersTo - -instance FromHttpApiData StatusMessageRefersTo where - parseQueryParam = \case - "UNSPECIFIED" -> Right Unspecified - "BREAKPOINT_SOURCE_LOCATION" -> Right BreakpointSourceLocation - "BREAKPOINT_CONDITION" -> Right BreakpointCondition - "BREAKPOINT_EXPRESSION" -> Right BreakpointExpression - "BREAKPOINT_AGE" -> Right BreakpointAge - "VARIABLE_NAME" -> Right VariableName - "VARIABLE_VALUE" -> Right VariableValue - x -> Left ("Unable to parse StatusMessageRefersTo from: " <> x) - -instance ToHttpApiData StatusMessageRefersTo where - toQueryParam = \case - Unspecified -> "UNSPECIFIED" - BreakpointSourceLocation -> "BREAKPOINT_SOURCE_LOCATION" - BreakpointCondition -> "BREAKPOINT_CONDITION" - BreakpointExpression -> "BREAKPOINT_EXPRESSION" - BreakpointAge -> "BREAKPOINT_AGE" - VariableName -> "VARIABLE_NAME" - VariableValue -> "VARIABLE_VALUE" - -instance FromJSON StatusMessageRefersTo where - parseJSON = parseJSONText "StatusMessageRefersTo" - -instance ToJSON StatusMessageRefersTo where - toJSON = toJSONText - --- | Indicates the severity of the log. Only relevant when action is \`LOG\`. -data BreakpointLogLevel - = Info - -- ^ @INFO@ - -- Information log message. - | Warning - -- ^ @WARNING@ - -- Warning log message. - | Error' - -- ^ @ERROR@ - -- Error log message. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable BreakpointLogLevel - -instance FromHttpApiData BreakpointLogLevel where - parseQueryParam = \case - "INFO" -> Right Info - "WARNING" -> Right Warning - "ERROR" -> Right Error' - x -> Left ("Unable to parse BreakpointLogLevel from: " <> x) - -instance ToHttpApiData BreakpointLogLevel where - toQueryParam = \case - Info -> "INFO" - Warning -> "WARNING" - Error' -> "ERROR" - -instance FromJSON BreakpointLogLevel where - parseJSON = parseJSONText "BreakpointLogLevel" - -instance ToJSON BreakpointLogLevel where - toJSON = toJSONText - --- | V1 error format. -data Xgafv - = X1 - -- ^ @1@ - -- v1 error format - | X2 - -- ^ @2@ - -- v2 error format - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable Xgafv - -instance FromHttpApiData Xgafv where - parseQueryParam = \case - "1" -> Right X1 - "2" -> Right X2 - x -> Left ("Unable to parse Xgafv from: " <> x) - -instance ToHttpApiData Xgafv where - toQueryParam = \case - X1 -> "1" - X2 -> "2" - -instance FromJSON Xgafv where - parseJSON = parseJSONText "Xgafv" - -instance ToJSON Xgafv where - toJSON = toJSONText - --- | Action that the agent should perform when the code at the breakpoint --- location is hit. -data BreakpointAction - = Capture - -- ^ @CAPTURE@ - -- Capture stack frame and variables and update the breakpoint. The data is - -- only captured once. After that the breakpoint is set in a final state. - | Log - -- ^ @LOG@ - -- Log each breakpoint hit. The breakpoint remains active until deleted or - -- expired. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable BreakpointAction - -instance FromHttpApiData BreakpointAction where - parseQueryParam = \case - "CAPTURE" -> Right Capture - "LOG" -> Right Log - x -> Left ("Unable to parse BreakpointAction from: " <> x) - -instance ToHttpApiData BreakpointAction where - toQueryParam = \case - Capture -> "CAPTURE" - Log -> "LOG" - -instance FromJSON BreakpointAction where - parseJSON = parseJSONText "BreakpointAction" - -instance ToJSON BreakpointAction where - toJSON = toJSONText - --- | The alias kind. -data AliasContextKind - = Any - -- ^ @ANY@ - -- Do not use. - | Fixed - -- ^ @FIXED@ - -- Git tag - | Movable - -- ^ @MOVABLE@ - -- Git branch - | Other - -- ^ @OTHER@ - -- OTHER is used to specify non-standard aliases, those not of the kinds - -- above. For example, if a Git repo has a ref named \"refs\/foo\/bar\", it - -- is considered to be of kind OTHER. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AliasContextKind - -instance FromHttpApiData AliasContextKind where - parseQueryParam = \case - "ANY" -> Right Any - "FIXED" -> Right Fixed - "MOVABLE" -> Right Movable - "OTHER" -> Right Other - x -> Left ("Unable to parse AliasContextKind from: " <> x) - -instance ToHttpApiData AliasContextKind where - toQueryParam = \case - Any -> "ANY" - Fixed -> "FIXED" - Movable -> "MOVABLE" - Other -> "OTHER" - -instance FromJSON AliasContextKind where - parseJSON = parseJSONText "AliasContextKind" - -instance ToJSON AliasContextKind where - toJSON = toJSONText diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs +++ /dev/null @@ -1,211 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the list of all active breakpoints for the debuggee. The --- breakpoint specification (\`location\`, \`condition\`, and --- \`expressions\` fields) is semantically immutable, although the field --- values may change. For example, an agent may update the location line --- number to reflect the actual line where the breakpoint was set, but this --- doesn\'t change the breakpoint semantics. This means that an agent does --- not need to check if a breakpoint has changed when it encounters the --- same breakpoint on a successive call. Moreover, an agent should remember --- the breakpoints that are completed until the controller removes them --- from the active list to avoid setting those breakpoints again. --- --- /See:/ for @clouddebugger.controller.debuggees.breakpoints.list@. -module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List - ( - -- * REST Resource - ControllerDebuggeesBreakpointsListResource - - -- * Creating a Request - , controllerDebuggeesBreakpointsList - , ControllerDebuggeesBreakpointsList - - -- * Request Lenses - , cdblXgafv - , cdblUploadProtocol - , cdblAccessToken - , cdblUploadType - , cdblSuccessOnTimeout - , cdblWaitToken - , cdblDebuggeeId - , cdblCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.controller.debuggees.breakpoints.list@ method which the --- 'ControllerDebuggeesBreakpointsList' request conforms to. -type ControllerDebuggeesBreakpointsListResource = - "v2" :> - "controller" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "successOnTimeout" Bool :> - QueryParam "waitToken" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListActiveBreakpointsResponse - --- | Returns the list of all active breakpoints for the debuggee. The --- breakpoint specification (\`location\`, \`condition\`, and --- \`expressions\` fields) is semantically immutable, although the field --- values may change. For example, an agent may update the location line --- number to reflect the actual line where the breakpoint was set, but this --- doesn\'t change the breakpoint semantics. This means that an agent does --- not need to check if a breakpoint has changed when it encounters the --- same breakpoint on a successive call. Moreover, an agent should remember --- the breakpoints that are completed until the controller removes them --- from the active list to avoid setting those breakpoints again. --- --- /See:/ 'controllerDebuggeesBreakpointsList' smart constructor. -data ControllerDebuggeesBreakpointsList = - ControllerDebuggeesBreakpointsList' - { _cdblXgafv :: !(Maybe Xgafv) - , _cdblUploadProtocol :: !(Maybe Text) - , _cdblAccessToken :: !(Maybe Text) - , _cdblUploadType :: !(Maybe Text) - , _cdblSuccessOnTimeout :: !(Maybe Bool) - , _cdblWaitToken :: !(Maybe Text) - , _cdblDebuggeeId :: !Text - , _cdblCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ControllerDebuggeesBreakpointsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cdblXgafv' --- --- * 'cdblUploadProtocol' --- --- * 'cdblAccessToken' --- --- * 'cdblUploadType' --- --- * 'cdblSuccessOnTimeout' --- --- * 'cdblWaitToken' --- --- * 'cdblDebuggeeId' --- --- * 'cdblCallback' -controllerDebuggeesBreakpointsList - :: Text -- ^ 'cdblDebuggeeId' - -> ControllerDebuggeesBreakpointsList -controllerDebuggeesBreakpointsList pCdblDebuggeeId_ = - ControllerDebuggeesBreakpointsList' - { _cdblXgafv = Nothing - , _cdblUploadProtocol = Nothing - , _cdblAccessToken = Nothing - , _cdblUploadType = Nothing - , _cdblSuccessOnTimeout = Nothing - , _cdblWaitToken = Nothing - , _cdblDebuggeeId = pCdblDebuggeeId_ - , _cdblCallback = Nothing - } - - --- | V1 error format. -cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Xgafv) -cdblXgafv - = lens _cdblXgafv (\ s a -> s{_cdblXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -cdblUploadProtocol :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) -cdblUploadProtocol - = lens _cdblUploadProtocol - (\ s a -> s{_cdblUploadProtocol = a}) - --- | OAuth access token. -cdblAccessToken :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) -cdblAccessToken - = lens _cdblAccessToken - (\ s a -> s{_cdblAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -cdblUploadType :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) -cdblUploadType - = lens _cdblUploadType - (\ s a -> s{_cdblUploadType = a}) - --- | If set to \`true\` (recommended), returns \`google.rpc.Code.OK\` status --- and sets the \`wait_expired\` response field to \`true\` when the --- server-selected timeout has expired. If set to \`false\` (deprecated), --- returns \`google.rpc.Code.ABORTED\` status when the server-selected --- timeout has expired. -cdblSuccessOnTimeout :: Lens' ControllerDebuggeesBreakpointsList (Maybe Bool) -cdblSuccessOnTimeout - = lens _cdblSuccessOnTimeout - (\ s a -> s{_cdblSuccessOnTimeout = a}) - --- | A token that, if specified, blocks the method call until the list of --- active breakpoints has changed, or a server-selected timeout has --- expired. The value should be set from the \`next_wait_token\` field in --- the last response. The initial value should be set to \`\"init\"\`. -cdblWaitToken :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) -cdblWaitToken - = lens _cdblWaitToken - (\ s a -> s{_cdblWaitToken = a}) - --- | Identifies the debuggee. -cdblDebuggeeId :: Lens' ControllerDebuggeesBreakpointsList Text -cdblDebuggeeId - = lens _cdblDebuggeeId - (\ s a -> s{_cdblDebuggeeId = a}) - --- | JSONP -cdblCallback :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) -cdblCallback - = lens _cdblCallback (\ s a -> s{_cdblCallback = a}) - -instance GoogleRequest - ControllerDebuggeesBreakpointsList - where - type Rs ControllerDebuggeesBreakpointsList = - ListActiveBreakpointsResponse - type Scopes ControllerDebuggeesBreakpointsList = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient ControllerDebuggeesBreakpointsList'{..} - = go _cdblDebuggeeId _cdblXgafv _cdblUploadProtocol - _cdblAccessToken - _cdblUploadType - _cdblSuccessOnTimeout - _cdblWaitToken - _cdblCallback - (Just AltJSON) - debuggerService - where go - = buildClient - (Proxy :: - Proxy ControllerDebuggeesBreakpointsListResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs +++ /dev/null @@ -1,198 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates the breakpoint state or mutable fields. The entire Breakpoint --- message must be sent back to the controller service. Updates to active --- breakpoint fields are only allowed if the new value does not change the --- breakpoint specification. Updates to the \`location\`, \`condition\` and --- \`expressions\` fields should not alter the breakpoint semantics. These --- may only make changes such as canonicalizing a value or snapping the --- location to the correct line of code. --- --- /See:/ for @clouddebugger.controller.debuggees.breakpoints.update@. -module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update - ( - -- * REST Resource - ControllerDebuggeesBreakpointsUpdateResource - - -- * Creating a Request - , controllerDebuggeesBreakpointsUpdate - , ControllerDebuggeesBreakpointsUpdate - - -- * Request Lenses - , cdbuXgafv - , cdbuUploadProtocol - , cdbuAccessToken - , cdbuUploadType - , cdbuPayload - , cdbuId - , cdbuDebuggeeId - , cdbuCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.controller.debuggees.breakpoints.update@ method which the --- 'ControllerDebuggeesBreakpointsUpdate' request conforms to. -type ControllerDebuggeesBreakpointsUpdateResource = - "v2" :> - "controller" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - Capture "id" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] UpdateActiveBreakpointRequest :> - Put '[JSON] UpdateActiveBreakpointResponse - --- | Updates the breakpoint state or mutable fields. The entire Breakpoint --- message must be sent back to the controller service. Updates to active --- breakpoint fields are only allowed if the new value does not change the --- breakpoint specification. Updates to the \`location\`, \`condition\` and --- \`expressions\` fields should not alter the breakpoint semantics. These --- may only make changes such as canonicalizing a value or snapping the --- location to the correct line of code. --- --- /See:/ 'controllerDebuggeesBreakpointsUpdate' smart constructor. -data ControllerDebuggeesBreakpointsUpdate = - ControllerDebuggeesBreakpointsUpdate' - { _cdbuXgafv :: !(Maybe Xgafv) - , _cdbuUploadProtocol :: !(Maybe Text) - , _cdbuAccessToken :: !(Maybe Text) - , _cdbuUploadType :: !(Maybe Text) - , _cdbuPayload :: !UpdateActiveBreakpointRequest - , _cdbuId :: !Text - , _cdbuDebuggeeId :: !Text - , _cdbuCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ControllerDebuggeesBreakpointsUpdate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cdbuXgafv' --- --- * 'cdbuUploadProtocol' --- --- * 'cdbuAccessToken' --- --- * 'cdbuUploadType' --- --- * 'cdbuPayload' --- --- * 'cdbuId' --- --- * 'cdbuDebuggeeId' --- --- * 'cdbuCallback' -controllerDebuggeesBreakpointsUpdate - :: UpdateActiveBreakpointRequest -- ^ 'cdbuPayload' - -> Text -- ^ 'cdbuId' - -> Text -- ^ 'cdbuDebuggeeId' - -> ControllerDebuggeesBreakpointsUpdate -controllerDebuggeesBreakpointsUpdate pCdbuPayload_ pCdbuId_ pCdbuDebuggeeId_ = - ControllerDebuggeesBreakpointsUpdate' - { _cdbuXgafv = Nothing - , _cdbuUploadProtocol = Nothing - , _cdbuAccessToken = Nothing - , _cdbuUploadType = Nothing - , _cdbuPayload = pCdbuPayload_ - , _cdbuId = pCdbuId_ - , _cdbuDebuggeeId = pCdbuDebuggeeId_ - , _cdbuCallback = Nothing - } - - --- | V1 error format. -cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Xgafv) -cdbuXgafv - = lens _cdbuXgafv (\ s a -> s{_cdbuXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -cdbuUploadProtocol :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) -cdbuUploadProtocol - = lens _cdbuUploadProtocol - (\ s a -> s{_cdbuUploadProtocol = a}) - --- | OAuth access token. -cdbuAccessToken :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) -cdbuAccessToken - = lens _cdbuAccessToken - (\ s a -> s{_cdbuAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -cdbuUploadType :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) -cdbuUploadType - = lens _cdbuUploadType - (\ s a -> s{_cdbuUploadType = a}) - --- | Multipart request metadata. -cdbuPayload :: Lens' ControllerDebuggeesBreakpointsUpdate UpdateActiveBreakpointRequest -cdbuPayload - = lens _cdbuPayload (\ s a -> s{_cdbuPayload = a}) - --- | Breakpoint identifier, unique in the scope of the debuggee. -cdbuId :: Lens' ControllerDebuggeesBreakpointsUpdate Text -cdbuId = lens _cdbuId (\ s a -> s{_cdbuId = a}) - --- | Identifies the debuggee being debugged. -cdbuDebuggeeId :: Lens' ControllerDebuggeesBreakpointsUpdate Text -cdbuDebuggeeId - = lens _cdbuDebuggeeId - (\ s a -> s{_cdbuDebuggeeId = a}) - --- | JSONP -cdbuCallback :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) -cdbuCallback - = lens _cdbuCallback (\ s a -> s{_cdbuCallback = a}) - -instance GoogleRequest - ControllerDebuggeesBreakpointsUpdate - where - type Rs ControllerDebuggeesBreakpointsUpdate = - UpdateActiveBreakpointResponse - type Scopes ControllerDebuggeesBreakpointsUpdate = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient - ControllerDebuggeesBreakpointsUpdate'{..} - = go _cdbuDebuggeeId _cdbuId _cdbuXgafv - _cdbuUploadProtocol - _cdbuAccessToken - _cdbuUploadType - _cdbuCallback - (Just AltJSON) - _cdbuPayload - debuggerService - where go - = buildClient - (Proxy :: - Proxy ControllerDebuggeesBreakpointsUpdateResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs +++ /dev/null @@ -1,170 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Registers the debuggee with the controller service. All agents attached --- to the same application must call this method with exactly the same --- request content to get back the same stable \`debuggee_id\`. Agents --- should call this method again whenever \`google.rpc.Code.NOT_FOUND\` is --- returned from any controller method. This protocol allows the controller --- service to disable debuggees, recover from data loss, or change the --- \`debuggee_id\` format. Agents must handle \`debuggee_id\` value --- changing upon re-registration. --- --- /See:/ for @clouddebugger.controller.debuggees.register@. -module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register - ( - -- * REST Resource - ControllerDebuggeesRegisterResource - - -- * Creating a Request - , controllerDebuggeesRegister - , ControllerDebuggeesRegister - - -- * Request Lenses - , cdrXgafv - , cdrUploadProtocol - , cdrAccessToken - , cdrUploadType - , cdrPayload - , cdrCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.controller.debuggees.register@ method which the --- 'ControllerDebuggeesRegister' request conforms to. -type ControllerDebuggeesRegisterResource = - "v2" :> - "controller" :> - "debuggees" :> - "register" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] RegisterDebuggeeRequest :> - Post '[JSON] RegisterDebuggeeResponse - --- | Registers the debuggee with the controller service. All agents attached --- to the same application must call this method with exactly the same --- request content to get back the same stable \`debuggee_id\`. Agents --- should call this method again whenever \`google.rpc.Code.NOT_FOUND\` is --- returned from any controller method. This protocol allows the controller --- service to disable debuggees, recover from data loss, or change the --- \`debuggee_id\` format. Agents must handle \`debuggee_id\` value --- changing upon re-registration. --- --- /See:/ 'controllerDebuggeesRegister' smart constructor. -data ControllerDebuggeesRegister = - ControllerDebuggeesRegister' - { _cdrXgafv :: !(Maybe Xgafv) - , _cdrUploadProtocol :: !(Maybe Text) - , _cdrAccessToken :: !(Maybe Text) - , _cdrUploadType :: !(Maybe Text) - , _cdrPayload :: !RegisterDebuggeeRequest - , _cdrCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ControllerDebuggeesRegister' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cdrXgafv' --- --- * 'cdrUploadProtocol' --- --- * 'cdrAccessToken' --- --- * 'cdrUploadType' --- --- * 'cdrPayload' --- --- * 'cdrCallback' -controllerDebuggeesRegister - :: RegisterDebuggeeRequest -- ^ 'cdrPayload' - -> ControllerDebuggeesRegister -controllerDebuggeesRegister pCdrPayload_ = - ControllerDebuggeesRegister' - { _cdrXgafv = Nothing - , _cdrUploadProtocol = Nothing - , _cdrAccessToken = Nothing - , _cdrUploadType = Nothing - , _cdrPayload = pCdrPayload_ - , _cdrCallback = Nothing - } - - --- | V1 error format. -cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Xgafv) -cdrXgafv = lens _cdrXgafv (\ s a -> s{_cdrXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -cdrUploadProtocol :: Lens' ControllerDebuggeesRegister (Maybe Text) -cdrUploadProtocol - = lens _cdrUploadProtocol - (\ s a -> s{_cdrUploadProtocol = a}) - --- | OAuth access token. -cdrAccessToken :: Lens' ControllerDebuggeesRegister (Maybe Text) -cdrAccessToken - = lens _cdrAccessToken - (\ s a -> s{_cdrAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -cdrUploadType :: Lens' ControllerDebuggeesRegister (Maybe Text) -cdrUploadType - = lens _cdrUploadType - (\ s a -> s{_cdrUploadType = a}) - --- | Multipart request metadata. -cdrPayload :: Lens' ControllerDebuggeesRegister RegisterDebuggeeRequest -cdrPayload - = lens _cdrPayload (\ s a -> s{_cdrPayload = a}) - --- | JSONP -cdrCallback :: Lens' ControllerDebuggeesRegister (Maybe Text) -cdrCallback - = lens _cdrCallback (\ s a -> s{_cdrCallback = a}) - -instance GoogleRequest ControllerDebuggeesRegister - where - type Rs ControllerDebuggeesRegister = - RegisterDebuggeeResponse - type Scopes ControllerDebuggeesRegister = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient ControllerDebuggeesRegister'{..} - = go _cdrXgafv _cdrUploadProtocol _cdrAccessToken - _cdrUploadType - _cdrCallback - (Just AltJSON) - _cdrPayload - debuggerService - where go - = buildClient - (Proxy :: Proxy ControllerDebuggeesRegisterResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs +++ /dev/null @@ -1,186 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes the breakpoint from the debuggee. --- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.delete@. -module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete - ( - -- * REST Resource - DebuggerDebuggeesBreakpointsDeleteResource - - -- * Creating a Request - , debuggerDebuggeesBreakpointsDelete - , DebuggerDebuggeesBreakpointsDelete - - -- * Request Lenses - , ddbdXgafv - , ddbdUploadProtocol - , ddbdAccessToken - , ddbdUploadType - , ddbdBreakpointId - , ddbdDebuggeeId - , ddbdClientVersion - , ddbdCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.delete@ method which the --- 'DebuggerDebuggeesBreakpointsDelete' request conforms to. -type DebuggerDebuggeesBreakpointsDeleteResource = - "v2" :> - "debugger" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - Capture "breakpointId" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] Empty - --- | Deletes the breakpoint from the debuggee. --- --- /See:/ 'debuggerDebuggeesBreakpointsDelete' smart constructor. -data DebuggerDebuggeesBreakpointsDelete = - DebuggerDebuggeesBreakpointsDelete' - { _ddbdXgafv :: !(Maybe Xgafv) - , _ddbdUploadProtocol :: !(Maybe Text) - , _ddbdAccessToken :: !(Maybe Text) - , _ddbdUploadType :: !(Maybe Text) - , _ddbdBreakpointId :: !Text - , _ddbdDebuggeeId :: !Text - , _ddbdClientVersion :: !(Maybe Text) - , _ddbdCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggerDebuggeesBreakpointsDelete' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddbdXgafv' --- --- * 'ddbdUploadProtocol' --- --- * 'ddbdAccessToken' --- --- * 'ddbdUploadType' --- --- * 'ddbdBreakpointId' --- --- * 'ddbdDebuggeeId' --- --- * 'ddbdClientVersion' --- --- * 'ddbdCallback' -debuggerDebuggeesBreakpointsDelete - :: Text -- ^ 'ddbdBreakpointId' - -> Text -- ^ 'ddbdDebuggeeId' - -> DebuggerDebuggeesBreakpointsDelete -debuggerDebuggeesBreakpointsDelete pDdbdBreakpointId_ pDdbdDebuggeeId_ = - DebuggerDebuggeesBreakpointsDelete' - { _ddbdXgafv = Nothing - , _ddbdUploadProtocol = Nothing - , _ddbdAccessToken = Nothing - , _ddbdUploadType = Nothing - , _ddbdBreakpointId = pDdbdBreakpointId_ - , _ddbdDebuggeeId = pDdbdDebuggeeId_ - , _ddbdClientVersion = Nothing - , _ddbdCallback = Nothing - } - - --- | V1 error format. -ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Xgafv) -ddbdXgafv - = lens _ddbdXgafv (\ s a -> s{_ddbdXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -ddbdUploadProtocol :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdUploadProtocol - = lens _ddbdUploadProtocol - (\ s a -> s{_ddbdUploadProtocol = a}) - --- | OAuth access token. -ddbdAccessToken :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdAccessToken - = lens _ddbdAccessToken - (\ s a -> s{_ddbdAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -ddbdUploadType :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdUploadType - = lens _ddbdUploadType - (\ s a -> s{_ddbdUploadType = a}) - --- | ID of the breakpoint to delete. -ddbdBreakpointId :: Lens' DebuggerDebuggeesBreakpointsDelete Text -ddbdBreakpointId - = lens _ddbdBreakpointId - (\ s a -> s{_ddbdBreakpointId = a}) - --- | ID of the debuggee whose breakpoint to delete. -ddbdDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsDelete Text -ddbdDebuggeeId - = lens _ddbdDebuggeeId - (\ s a -> s{_ddbdDebuggeeId = a}) - --- | The client version making the call. Schema: \`domain\/type\/version\` --- (e.g., \`google.com\/intellij\/v1\`). -ddbdClientVersion :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdClientVersion - = lens _ddbdClientVersion - (\ s a -> s{_ddbdClientVersion = a}) - --- | JSONP -ddbdCallback :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdCallback - = lens _ddbdCallback (\ s a -> s{_ddbdCallback = a}) - -instance GoogleRequest - DebuggerDebuggeesBreakpointsDelete - where - type Rs DebuggerDebuggeesBreakpointsDelete = Empty - type Scopes DebuggerDebuggeesBreakpointsDelete = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient DebuggerDebuggeesBreakpointsDelete'{..} - = go _ddbdDebuggeeId _ddbdBreakpointId _ddbdXgafv - _ddbdUploadProtocol - _ddbdAccessToken - _ddbdUploadType - _ddbdClientVersion - _ddbdCallback - (Just AltJSON) - debuggerService - where go - = buildClient - (Proxy :: - Proxy DebuggerDebuggeesBreakpointsDeleteResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs +++ /dev/null @@ -1,188 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Gets breakpoint information. --- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.get@. -module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get - ( - -- * REST Resource - DebuggerDebuggeesBreakpointsGetResource - - -- * Creating a Request - , debuggerDebuggeesBreakpointsGet - , DebuggerDebuggeesBreakpointsGet - - -- * Request Lenses - , ddbgXgafv - , ddbgUploadProtocol - , ddbgAccessToken - , ddbgUploadType - , ddbgBreakpointId - , ddbgDebuggeeId - , ddbgClientVersion - , ddbgCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.get@ method which the --- 'DebuggerDebuggeesBreakpointsGet' request conforms to. -type DebuggerDebuggeesBreakpointsGetResource = - "v2" :> - "debugger" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - Capture "breakpointId" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] GetBreakpointResponse - --- | Gets breakpoint information. --- --- /See:/ 'debuggerDebuggeesBreakpointsGet' smart constructor. -data DebuggerDebuggeesBreakpointsGet = - DebuggerDebuggeesBreakpointsGet' - { _ddbgXgafv :: !(Maybe Xgafv) - , _ddbgUploadProtocol :: !(Maybe Text) - , _ddbgAccessToken :: !(Maybe Text) - , _ddbgUploadType :: !(Maybe Text) - , _ddbgBreakpointId :: !Text - , _ddbgDebuggeeId :: !Text - , _ddbgClientVersion :: !(Maybe Text) - , _ddbgCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggerDebuggeesBreakpointsGet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddbgXgafv' --- --- * 'ddbgUploadProtocol' --- --- * 'ddbgAccessToken' --- --- * 'ddbgUploadType' --- --- * 'ddbgBreakpointId' --- --- * 'ddbgDebuggeeId' --- --- * 'ddbgClientVersion' --- --- * 'ddbgCallback' -debuggerDebuggeesBreakpointsGet - :: Text -- ^ 'ddbgBreakpointId' - -> Text -- ^ 'ddbgDebuggeeId' - -> DebuggerDebuggeesBreakpointsGet -debuggerDebuggeesBreakpointsGet pDdbgBreakpointId_ pDdbgDebuggeeId_ = - DebuggerDebuggeesBreakpointsGet' - { _ddbgXgafv = Nothing - , _ddbgUploadProtocol = Nothing - , _ddbgAccessToken = Nothing - , _ddbgUploadType = Nothing - , _ddbgBreakpointId = pDdbgBreakpointId_ - , _ddbgDebuggeeId = pDdbgDebuggeeId_ - , _ddbgClientVersion = Nothing - , _ddbgCallback = Nothing - } - - --- | V1 error format. -ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Xgafv) -ddbgXgafv - = lens _ddbgXgafv (\ s a -> s{_ddbgXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -ddbgUploadProtocol :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgUploadProtocol - = lens _ddbgUploadProtocol - (\ s a -> s{_ddbgUploadProtocol = a}) - --- | OAuth access token. -ddbgAccessToken :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgAccessToken - = lens _ddbgAccessToken - (\ s a -> s{_ddbgAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -ddbgUploadType :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgUploadType - = lens _ddbgUploadType - (\ s a -> s{_ddbgUploadType = a}) - --- | ID of the breakpoint to get. -ddbgBreakpointId :: Lens' DebuggerDebuggeesBreakpointsGet Text -ddbgBreakpointId - = lens _ddbgBreakpointId - (\ s a -> s{_ddbgBreakpointId = a}) - --- | ID of the debuggee whose breakpoint to get. -ddbgDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsGet Text -ddbgDebuggeeId - = lens _ddbgDebuggeeId - (\ s a -> s{_ddbgDebuggeeId = a}) - --- | The client version making the call. Schema: \`domain\/type\/version\` --- (e.g., \`google.com\/intellij\/v1\`). -ddbgClientVersion :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgClientVersion - = lens _ddbgClientVersion - (\ s a -> s{_ddbgClientVersion = a}) - --- | JSONP -ddbgCallback :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgCallback - = lens _ddbgCallback (\ s a -> s{_ddbgCallback = a}) - -instance GoogleRequest - DebuggerDebuggeesBreakpointsGet - where - type Rs DebuggerDebuggeesBreakpointsGet = - GetBreakpointResponse - type Scopes DebuggerDebuggeesBreakpointsGet = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient DebuggerDebuggeesBreakpointsGet'{..} - = go _ddbgDebuggeeId _ddbgBreakpointId _ddbgXgafv - _ddbgUploadProtocol - _ddbgAccessToken - _ddbgUploadType - _ddbgClientVersion - _ddbgCallback - (Just AltJSON) - debuggerService - where go - = buildClient - (Proxy :: - Proxy DebuggerDebuggeesBreakpointsGetResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs +++ /dev/null @@ -1,247 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists all breakpoints for the debuggee. --- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.list@. -module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List - ( - -- * REST Resource - DebuggerDebuggeesBreakpointsListResource - - -- * Creating a Request - , debuggerDebuggeesBreakpointsList - , DebuggerDebuggeesBreakpointsList - - -- * Request Lenses - , ddblXgafv - , ddblIncludeInactive - , ddblUploadProtocol - , ddblAccessToken - , ddblActionValue - , ddblUploadType - , ddblStripResults - , ddblIncludeAllUsers - , ddblWaitToken - , ddblDebuggeeId - , ddblClientVersion - , ddblCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.list@ method which the --- 'DebuggerDebuggeesBreakpointsList' request conforms to. -type DebuggerDebuggeesBreakpointsListResource = - "v2" :> - "debugger" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "includeInactive" Bool :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "action.value" Text :> - QueryParam "uploadType" Text :> - QueryParam "stripResults" Bool :> - QueryParam "includeAllUsers" Bool :> - QueryParam "waitToken" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListBreakpointsResponse - --- | Lists all breakpoints for the debuggee. --- --- /See:/ 'debuggerDebuggeesBreakpointsList' smart constructor. -data DebuggerDebuggeesBreakpointsList = - DebuggerDebuggeesBreakpointsList' - { _ddblXgafv :: !(Maybe Xgafv) - , _ddblIncludeInactive :: !(Maybe Bool) - , _ddblUploadProtocol :: !(Maybe Text) - , _ddblAccessToken :: !(Maybe Text) - , _ddblActionValue :: !(Maybe Text) - , _ddblUploadType :: !(Maybe Text) - , _ddblStripResults :: !(Maybe Bool) - , _ddblIncludeAllUsers :: !(Maybe Bool) - , _ddblWaitToken :: !(Maybe Text) - , _ddblDebuggeeId :: !Text - , _ddblClientVersion :: !(Maybe Text) - , _ddblCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggerDebuggeesBreakpointsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddblXgafv' --- --- * 'ddblIncludeInactive' --- --- * 'ddblUploadProtocol' --- --- * 'ddblAccessToken' --- --- * 'ddblActionValue' --- --- * 'ddblUploadType' --- --- * 'ddblStripResults' --- --- * 'ddblIncludeAllUsers' --- --- * 'ddblWaitToken' --- --- * 'ddblDebuggeeId' --- --- * 'ddblClientVersion' --- --- * 'ddblCallback' -debuggerDebuggeesBreakpointsList - :: Text -- ^ 'ddblDebuggeeId' - -> DebuggerDebuggeesBreakpointsList -debuggerDebuggeesBreakpointsList pDdblDebuggeeId_ = - DebuggerDebuggeesBreakpointsList' - { _ddblXgafv = Nothing - , _ddblIncludeInactive = Nothing - , _ddblUploadProtocol = Nothing - , _ddblAccessToken = Nothing - , _ddblActionValue = Nothing - , _ddblUploadType = Nothing - , _ddblStripResults = Nothing - , _ddblIncludeAllUsers = Nothing - , _ddblWaitToken = Nothing - , _ddblDebuggeeId = pDdblDebuggeeId_ - , _ddblClientVersion = Nothing - , _ddblCallback = Nothing - } - - --- | V1 error format. -ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Xgafv) -ddblXgafv - = lens _ddblXgafv (\ s a -> s{_ddblXgafv = a}) - --- | When set to \`true\`, the response includes active and inactive --- breakpoints. Otherwise, it includes only active breakpoints. -ddblIncludeInactive :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) -ddblIncludeInactive - = lens _ddblIncludeInactive - (\ s a -> s{_ddblIncludeInactive = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -ddblUploadProtocol :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblUploadProtocol - = lens _ddblUploadProtocol - (\ s a -> s{_ddblUploadProtocol = a}) - --- | OAuth access token. -ddblAccessToken :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblAccessToken - = lens _ddblAccessToken - (\ s a -> s{_ddblAccessToken = a}) - --- | Only breakpoints with the specified action will pass the filter. -ddblActionValue :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblActionValue - = lens _ddblActionValue - (\ s a -> s{_ddblActionValue = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -ddblUploadType :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblUploadType - = lens _ddblUploadType - (\ s a -> s{_ddblUploadType = a}) - --- | This field is deprecated. The following fields are always stripped out --- of the result: \`stack_frames\`, \`evaluated_expressions\` and --- \`variable_table\`. -ddblStripResults :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) -ddblStripResults - = lens _ddblStripResults - (\ s a -> s{_ddblStripResults = a}) - --- | When set to \`true\`, the response includes the list of breakpoints set --- by any user. Otherwise, it includes only breakpoints set by the caller. -ddblIncludeAllUsers :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) -ddblIncludeAllUsers - = lens _ddblIncludeAllUsers - (\ s a -> s{_ddblIncludeAllUsers = a}) - --- | A wait token that, if specified, blocks the call until the breakpoints --- list has changed, or a server selected timeout has expired. The value --- should be set from the last response. The error code --- \`google.rpc.Code.ABORTED\` (RPC) is returned on wait timeout, which --- should be called again with the same \`wait_token\`. -ddblWaitToken :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblWaitToken - = lens _ddblWaitToken - (\ s a -> s{_ddblWaitToken = a}) - --- | ID of the debuggee whose breakpoints to list. -ddblDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsList Text -ddblDebuggeeId - = lens _ddblDebuggeeId - (\ s a -> s{_ddblDebuggeeId = a}) - --- | The client version making the call. Schema: \`domain\/type\/version\` --- (e.g., \`google.com\/intellij\/v1\`). -ddblClientVersion :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblClientVersion - = lens _ddblClientVersion - (\ s a -> s{_ddblClientVersion = a}) - --- | JSONP -ddblCallback :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblCallback - = lens _ddblCallback (\ s a -> s{_ddblCallback = a}) - -instance GoogleRequest - DebuggerDebuggeesBreakpointsList - where - type Rs DebuggerDebuggeesBreakpointsList = - ListBreakpointsResponse - type Scopes DebuggerDebuggeesBreakpointsList = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient DebuggerDebuggeesBreakpointsList'{..} - = go _ddblDebuggeeId _ddblXgafv _ddblIncludeInactive - _ddblUploadProtocol - _ddblAccessToken - _ddblActionValue - _ddblUploadType - _ddblStripResults - _ddblIncludeAllUsers - _ddblWaitToken - _ddblClientVersion - _ddblCallback - (Just AltJSON) - debuggerService - where go - = buildClient - (Proxy :: - Proxy DebuggerDebuggeesBreakpointsListResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs +++ /dev/null @@ -1,188 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Sets the breakpoint to the debuggee. --- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.set@. -module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set - ( - -- * REST Resource - DebuggerDebuggeesBreakpointsSetResource - - -- * Creating a Request - , debuggerDebuggeesBreakpointsSet - , DebuggerDebuggeesBreakpointsSet - - -- * Request Lenses - , ddbsXgafv - , ddbsUploadProtocol - , ddbsAccessToken - , ddbsUploadType - , ddbsPayload - , ddbsDebuggeeId - , ddbsClientVersion - , ddbsCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.debugger.debuggees.breakpoints.set@ method which the --- 'DebuggerDebuggeesBreakpointsSet' request conforms to. -type DebuggerDebuggeesBreakpointsSetResource = - "v2" :> - "debugger" :> - "debuggees" :> - Capture "debuggeeId" Text :> - "breakpoints" :> - "set" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Breakpoint :> - Post '[JSON] SetBreakpointResponse - --- | Sets the breakpoint to the debuggee. --- --- /See:/ 'debuggerDebuggeesBreakpointsSet' smart constructor. -data DebuggerDebuggeesBreakpointsSet = - DebuggerDebuggeesBreakpointsSet' - { _ddbsXgafv :: !(Maybe Xgafv) - , _ddbsUploadProtocol :: !(Maybe Text) - , _ddbsAccessToken :: !(Maybe Text) - , _ddbsUploadType :: !(Maybe Text) - , _ddbsPayload :: !Breakpoint - , _ddbsDebuggeeId :: !Text - , _ddbsClientVersion :: !(Maybe Text) - , _ddbsCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggerDebuggeesBreakpointsSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddbsXgafv' --- --- * 'ddbsUploadProtocol' --- --- * 'ddbsAccessToken' --- --- * 'ddbsUploadType' --- --- * 'ddbsPayload' --- --- * 'ddbsDebuggeeId' --- --- * 'ddbsClientVersion' --- --- * 'ddbsCallback' -debuggerDebuggeesBreakpointsSet - :: Breakpoint -- ^ 'ddbsPayload' - -> Text -- ^ 'ddbsDebuggeeId' - -> DebuggerDebuggeesBreakpointsSet -debuggerDebuggeesBreakpointsSet pDdbsPayload_ pDdbsDebuggeeId_ = - DebuggerDebuggeesBreakpointsSet' - { _ddbsXgafv = Nothing - , _ddbsUploadProtocol = Nothing - , _ddbsAccessToken = Nothing - , _ddbsUploadType = Nothing - , _ddbsPayload = pDdbsPayload_ - , _ddbsDebuggeeId = pDdbsDebuggeeId_ - , _ddbsClientVersion = Nothing - , _ddbsCallback = Nothing - } - - --- | V1 error format. -ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Xgafv) -ddbsXgafv - = lens _ddbsXgafv (\ s a -> s{_ddbsXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -ddbsUploadProtocol :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsUploadProtocol - = lens _ddbsUploadProtocol - (\ s a -> s{_ddbsUploadProtocol = a}) - --- | OAuth access token. -ddbsAccessToken :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsAccessToken - = lens _ddbsAccessToken - (\ s a -> s{_ddbsAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -ddbsUploadType :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsUploadType - = lens _ddbsUploadType - (\ s a -> s{_ddbsUploadType = a}) - --- | Multipart request metadata. -ddbsPayload :: Lens' DebuggerDebuggeesBreakpointsSet Breakpoint -ddbsPayload - = lens _ddbsPayload (\ s a -> s{_ddbsPayload = a}) - --- | ID of the debuggee where the breakpoint is to be set. -ddbsDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsSet Text -ddbsDebuggeeId - = lens _ddbsDebuggeeId - (\ s a -> s{_ddbsDebuggeeId = a}) - --- | The client version making the call. Schema: \`domain\/type\/version\` --- (e.g., \`google.com\/intellij\/v1\`). -ddbsClientVersion :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsClientVersion - = lens _ddbsClientVersion - (\ s a -> s{_ddbsClientVersion = a}) - --- | JSONP -ddbsCallback :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsCallback - = lens _ddbsCallback (\ s a -> s{_ddbsCallback = a}) - -instance GoogleRequest - DebuggerDebuggeesBreakpointsSet - where - type Rs DebuggerDebuggeesBreakpointsSet = - SetBreakpointResponse - type Scopes DebuggerDebuggeesBreakpointsSet = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient DebuggerDebuggeesBreakpointsSet'{..} - = go _ddbsDebuggeeId _ddbsXgafv _ddbsUploadProtocol - _ddbsAccessToken - _ddbsUploadType - _ddbsClientVersion - _ddbsCallback - (Just AltJSON) - _ddbsPayload - debuggerService - where go - = buildClient - (Proxy :: - Proxy DebuggerDebuggeesBreakpointsSetResource) - mempty diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs +++ /dev/null @@ -1,180 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists all the debuggees that the user has access to. --- --- /See:/ for @clouddebugger.debugger.debuggees.list@. -module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List - ( - -- * REST Resource - DebuggerDebuggeesListResource - - -- * Creating a Request - , debuggerDebuggeesList - , DebuggerDebuggeesList - - -- * Request Lenses - , ddlXgafv - , ddlIncludeInactive - , ddlUploadProtocol - , ddlProject - , ddlAccessToken - , ddlUploadType - , ddlClientVersion - , ddlCallback - ) where - -import Network.Google.Debugger.Types -import Network.Google.Prelude - --- | A resource alias for @clouddebugger.debugger.debuggees.list@ method which the --- 'DebuggerDebuggeesList' request conforms to. -type DebuggerDebuggeesListResource = - "v2" :> - "debugger" :> - "debuggees" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "includeInactive" Bool :> - QueryParam "upload_protocol" Text :> - QueryParam "project" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListDebuggeesResponse - --- | Lists all the debuggees that the user has access to. --- --- /See:/ 'debuggerDebuggeesList' smart constructor. -data DebuggerDebuggeesList = - DebuggerDebuggeesList' - { _ddlXgafv :: !(Maybe Xgafv) - , _ddlIncludeInactive :: !(Maybe Bool) - , _ddlUploadProtocol :: !(Maybe Text) - , _ddlProject :: !(Maybe Text) - , _ddlAccessToken :: !(Maybe Text) - , _ddlUploadType :: !(Maybe Text) - , _ddlClientVersion :: !(Maybe Text) - , _ddlCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DebuggerDebuggeesList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddlXgafv' --- --- * 'ddlIncludeInactive' --- --- * 'ddlUploadProtocol' --- --- * 'ddlProject' --- --- * 'ddlAccessToken' --- --- * 'ddlUploadType' --- --- * 'ddlClientVersion' --- --- * 'ddlCallback' -debuggerDebuggeesList - :: DebuggerDebuggeesList -debuggerDebuggeesList = - DebuggerDebuggeesList' - { _ddlXgafv = Nothing - , _ddlIncludeInactive = Nothing - , _ddlUploadProtocol = Nothing - , _ddlProject = Nothing - , _ddlAccessToken = Nothing - , _ddlUploadType = Nothing - , _ddlClientVersion = Nothing - , _ddlCallback = Nothing - } - - --- | V1 error format. -ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Xgafv) -ddlXgafv = lens _ddlXgafv (\ s a -> s{_ddlXgafv = a}) - --- | When set to \`true\`, the result includes all debuggees. Otherwise, the --- result includes only debuggees that are active. -ddlIncludeInactive :: Lens' DebuggerDebuggeesList (Maybe Bool) -ddlIncludeInactive - = lens _ddlIncludeInactive - (\ s a -> s{_ddlIncludeInactive = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -ddlUploadProtocol :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlUploadProtocol - = lens _ddlUploadProtocol - (\ s a -> s{_ddlUploadProtocol = a}) - --- | Project number of a Google Cloud project whose debuggees to list. -ddlProject :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlProject - = lens _ddlProject (\ s a -> s{_ddlProject = a}) - --- | OAuth access token. -ddlAccessToken :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlAccessToken - = lens _ddlAccessToken - (\ s a -> s{_ddlAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -ddlUploadType :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlUploadType - = lens _ddlUploadType - (\ s a -> s{_ddlUploadType = a}) - --- | The client version making the call. Schema: \`domain\/type\/version\` --- (e.g., \`google.com\/intellij\/v1\`). -ddlClientVersion :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlClientVersion - = lens _ddlClientVersion - (\ s a -> s{_ddlClientVersion = a}) - --- | JSONP -ddlCallback :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlCallback - = lens _ddlCallback (\ s a -> s{_ddlCallback = a}) - -instance GoogleRequest DebuggerDebuggeesList where - type Rs DebuggerDebuggeesList = ListDebuggeesResponse - type Scopes DebuggerDebuggeesList = - '["https://www.googleapis.com/auth/cloud-platform", - "https://www.googleapis.com/auth/cloud_debugger"] - requestClient DebuggerDebuggeesList'{..} - = go _ddlXgafv _ddlIncludeInactive _ddlUploadProtocol - _ddlProject - _ddlAccessToken - _ddlUploadType - _ddlClientVersion - _ddlCallback - (Just AltJSON) - debuggerService - where go - = buildClient - (Proxy :: Proxy DebuggerDebuggeesListResource) - mempty diff --git a/gogol-debugger.cabal b/gogol-debugger.cabal --- a/gogol-debugger.cabal +++ b/gogol-debugger.cabal @@ -1,54 +1,68 @@ -name: gogol-debugger -version: 0.5.0 -synopsis: Google Stackdriver Debugger SDK. -homepage: https://github.com/brendanhay/gogol -bug-reports: https://github.com/brendanhay/gogol/issues -license: OtherLicense -license-file: LICENSE -author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2015-2016 Brendan Hay -category: Network, Google, Cloud -build-type: Simple -cabal-version: >= 1.10 -extra-source-files: README.md src/.gitkeep +cabal-version: 2.2 +name: gogol-debugger +version: 1.0.0 +synopsis: Google Cloud Debugger API (Deprecated) SDK. +homepage: https://github.com/brendanhay/gogol +bug-reports: https://github.com/brendanhay/gogol/issues +license: MPL-2.0 +license-file: LICENSE +author: Brendan Hay +maintainer: + Brendan Hay , Toni Cebrián +copyright: Copyright (c) 2015-2025 Brendan Hay +category: Google +build-type: Simple +extra-source-files: + README.md + src/.gitkeep + description: - Examines the call stack and variables of a running application without - stopping or slowing it down. - . - /Warning:/ This is an experimental prototype/preview release which is still - under exploratory development and not intended for public use, caveat emptor! - . - This library is compatible with version @v2@ - of the API. + Examines the call stack and variables of a running application without stopping or slowing it down. (Deprecated) + . + /Warning:/ This is an experimental prototype/preview release which is still + under exploratory development and not intended for public use, caveat emptor! + . + This library is compatible with version @v2@ + of the API. source-repository head - type: git - location: git://github.com/brendanhay/gogol.git + type: git + location: git://github.com/brendanhay/gogol.git + subdir: gogol-debugger +flag field-selectors + description: + If record field selectors should be enabled. Disabling this requires GHC >=9.2 and the NoFieldSelectors extension. + + default: False + manual: True + library - default-language: Haskell2010 - hs-source-dirs: src gen + default-language: GHC2021 + hs-source-dirs: src gen + ghc-options: + -Wall -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates -funbox-strict-fields + -fwarn-unused-packages - ghc-options: -Wall + if (!flag(field-selectors) && impl(ghc >=9.2)) + default-extensions: NoFieldSelectors - exposed-modules: - Network.Google.Debugger - , Network.Google.Debugger.Types - , Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List - , Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update - , Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register - , Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete - , Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get - , Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List - , Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set - , Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List + exposed-modules: + Gogol.Debugger + Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.List + Gogol.Debugger.Clouddebugger.Controller.Debuggees.Breakpoints.Update + Gogol.Debugger.Clouddebugger.Controller.Debuggees.Register + Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Delete + Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Get + Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.List + Gogol.Debugger.Clouddebugger.Debugger.Debuggees.Breakpoints.Set + Gogol.Debugger.Clouddebugger.Debugger.Debuggees.List + Gogol.Debugger.Types - other-modules: - Network.Google.Debugger.Types.Product - , Network.Google.Debugger.Types.Sum + other-modules: + Gogol.Debugger.Internal.Product + Gogol.Debugger.Internal.Sum - build-depends: - gogol-core == 0.5.0.* - , base >= 4.7 && < 5 + build-depends: gogol-core ^>=1.0.0