{-# 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
(
ControllerDebuggeesBreakpointsListResource
, controllerDebuggeesBreakpointsList
, ControllerDebuggeesBreakpointsList
, cdblXgafv
, cdblUploadProtocol
, cdblPp
, cdblAccessToken
, cdblUploadType
, cdblSuccessOnTimeout
, cdblBearerToken
, cdblWaitToken
, cdblDebuggeeId
, cdblCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
type ControllerDebuggeesBreakpointsListResource =
"v2" :>
"controller" :>
"debuggees" :>
Capture "debuggeeId" Text :>
"breakpoints" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "successOnTimeout" Bool :>
QueryParam "bearer_token" Text :>
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 expression 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 Text)
, _cdblUploadProtocol :: !(Maybe Text)
, _cdblPp :: !Bool
, _cdblAccessToken :: !(Maybe Text)
, _cdblUploadType :: !(Maybe Text)
, _cdblSuccessOnTimeout :: !(Maybe Bool)
, _cdblBearerToken :: !(Maybe Text)
, _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'
--
-- * 'cdblPp'
--
-- * 'cdblAccessToken'
--
-- * 'cdblUploadType'
--
-- * 'cdblSuccessOnTimeout'
--
-- * 'cdblBearerToken'
--
-- * 'cdblWaitToken'
--
-- * 'cdblDebuggeeId'
--
-- * 'cdblCallback'
controllerDebuggeesBreakpointsList
:: Text -- ^ 'cdblDebuggeeId'
-> ControllerDebuggeesBreakpointsList
controllerDebuggeesBreakpointsList pCdblDebuggeeId_ =
ControllerDebuggeesBreakpointsList'
{ _cdblXgafv = Nothing
, _cdblUploadProtocol = Nothing
, _cdblPp = True
, _cdblAccessToken = Nothing
, _cdblUploadType = Nothing
, _cdblSuccessOnTimeout = Nothing
, _cdblBearerToken = Nothing
, _cdblWaitToken = Nothing
, _cdblDebuggeeId = pCdblDebuggeeId_
, _cdblCallback = Nothing
}
-- | V1 error format.
cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text)
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})
-- | Pretty-print response.
cdblPp :: Lens' ControllerDebuggeesBreakpointsList Bool
cdblPp = lens _cdblPp (\ s a -> s{_cdblPp = 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\`, returns \`google.rpc.Code.OK\` status and sets the
-- \`wait_expired\` response field to \`true\` when the server-selected
-- timeout has expired (recommended). If set to \`false\`, returns
-- \`google.rpc.Code.ABORTED\` status when the server-selected timeout has
-- expired (deprecated).
cdblSuccessOnTimeout :: Lens' ControllerDebuggeesBreakpointsList (Maybe Bool)
cdblSuccessOnTimeout
= lens _cdblSuccessOnTimeout
(\ s a -> s{_cdblSuccessOnTimeout = a})
-- | OAuth bearer token.
cdblBearerToken :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text)
cdblBearerToken
= lens _cdblBearerToken
(\ s a -> s{_cdblBearerToken = a})
-- | A wait 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 last returned response.
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
(Just _cdblPp)
_cdblAccessToken
_cdblUploadType
_cdblSuccessOnTimeout
_cdblBearerToken
_cdblWaitToken
_cdblCallback
(Just AltJSON)
debuggerService
where go
= buildClient
(Proxy ::
Proxy ControllerDebuggeesBreakpointsListResource)
mempty