diff --git a/gen/Network/Google/Debugger.hs b/gen/Network/Google/Debugger.hs --- a/gen/Network/Google/Debugger.hs +++ b/gen/Network/Google/Debugger.hs @@ -16,7 +16,7 @@ -- Examines the call stack and variables of a running application without -- stopping or slowing it down. -- --- /See:/ +-- /See:/ module Network.Google.Debugger ( -- * Service Configuration @@ -214,6 +214,7 @@ , sourceLocation , slPath , slLine + , slColumn -- ** StackFrame , StackFrame diff --git a/gen/Network/Google/Debugger/Types.hs b/gen/Network/Google/Debugger/Types.hs --- a/gen/Network/Google/Debugger/Types.hs +++ b/gen/Network/Google/Debugger/Types.hs @@ -180,6 +180,7 @@ , sourceLocation , slPath , slLine + , slColumn -- * StackFrame , StackFrame @@ -254,7 +255,7 @@ = defaultService (ServiceId "clouddebugger:v2") "clouddebugger.googleapis.com" --- | Manage cloud debugger +-- | Use Stackdriver Debugger cloudDebuggerScope :: Proxy '["https://www.googleapis.com/auth/cloud_debugger"] cloudDebuggerScope = Proxy; diff --git a/gen/Network/Google/Debugger/Types/Product.hs b/gen/Network/Google/Debugger/Types/Product.hs --- a/gen/Network/Google/Debugger/Types/Product.hs +++ b/gen/Network/Google/Debugger/Types/Product.hs @@ -39,8 +39,11 @@ { _rdrDebuggee = Nothing } --- | Debuggee resource. The field \`id\` is guranteed to be set (in addition --- to the echoed fields). +-- | 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}) @@ -641,7 +644,8 @@ . _Default . _Coerce --- | The stack at breakpoint time. +-- | 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}) @@ -973,7 +977,7 @@ -- | 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 it\'s status. +-- cleared on each breakpoint regardless of its status. lbrBreakpoints :: Lens' ListBreakpointsResponse [Breakpoint] lbrBreakpoints = lens _lbrBreakpoints @@ -1015,10 +1019,10 @@ { _ldrDebuggees = Nothing } --- | List of debuggees accessible to the calling user. Note that the --- \`description\` field is the only human readable field that should be --- displayed to the user. The fields \`debuggee.id\` and \`description\` --- fields are guaranteed to be set on each debuggee. +-- | 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}) @@ -1056,7 +1060,8 @@ { _uabrBreakpoint = Nothing } --- | Updated breakpoint information. The field \'id\' must be set. +-- | 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 @@ -1164,8 +1169,8 @@ , _labrWaitExpired = Nothing } --- | A wait token that can be used in the next method call to block until the --- list of breakpoints changes. +-- | 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 @@ -1180,8 +1185,9 @@ . _Default . _Coerce --- | The \`wait_expired\` field is set to true by the server when the request --- times out and the field \`success_on_timeout\` is set to true. +-- | 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 @@ -1303,8 +1309,9 @@ -- -- /See:/ 'sourceLocation' smart constructor. data SourceLocation = SourceLocation' - { _slPath :: !(Maybe Text) - , _slLine :: !(Maybe (Textual Int32)) + { _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. @@ -1314,12 +1321,15 @@ -- * '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. @@ -1332,18 +1342,28 @@ = 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 .:? "path") <*> (o .:? "line") <*> + (o .:? "column")) instance ToJSON SourceLocation where toJSON SourceLocation'{..} = object (catMaybes - [("path" .=) <$> _slPath, ("line" .=) <$> _slLine]) + [("path" .=) <$> _slPath, ("line" .=) <$> _slLine, + ("column" .=) <$> _slColumn]) -- | Represents a stack frame context. -- @@ -1527,11 +1547,11 @@ instance ToJSON DebuggeeLabels where toJSON = toJSON . _dlAddtional --- | Represents the application to debug. The application may include one or +-- | 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. The agents attached to the same debuggee are identified by --- using exactly the same field values when registering. +-- 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' @@ -1596,22 +1616,23 @@ dStatus :: Lens' Debuggee (Maybe StatusMessage) dStatus = lens _dStatus (\ s a -> s{_dStatus = a}) --- | Debuggee uniquifier within the project. Any string that identifies the --- application within the project can be used. Including environment and --- version or build IDs is recommended. +-- | 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 the project number when +-- | 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. Contexts describing a remote repo related to the --- source code have a \`category\` label of \`remote_repo\`. Source --- snapshot source contexts have a \`category\` of \`snapshot\`. +-- deployed application. dExtSourceContexts :: Lens' Debuggee [ExtendedSourceContext] dExtSourceContexts = lens _dExtSourceContexts @@ -1619,9 +1640,9 @@ . _Default . _Coerce --- | Version ID of the agent release. The version ID is structured as --- following: \`domain\/type\/vmajor.minor\` (for example --- \`google.com\/gcp-java\/v1.1\`). +-- | 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 @@ -1648,16 +1669,15 @@ dDescription = lens _dDescription (\ s a -> s{_dDescription = a}) --- | If set to \`true\`, indicates that the debuggee is considered as --- inactive by the Controller service. +-- | 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. NOTE: This field is deprecated. Consumers should --- use \`ext_source_contexts\` if it is not empty. Debug agents should --- populate both this field and \`ext_source_contexts\`. +-- deployed application. dSourceContexts :: Lens' Debuggee [SourceContext] dSourceContexts = lens _dSourceContexts diff --git a/gen/Network/Google/Debugger/Types/Sum.hs b/gen/Network/Google/Debugger/Types/Sum.hs --- a/gen/Network/Google/Debugger/Types/Sum.hs +++ b/gen/Network/Google/Debugger/Types/Sum.hs @@ -16,7 +16,7 @@ -- module Network.Google.Debugger.Types.Sum where -import Network.Google.Prelude +import Network.Google.Prelude hiding (Bytes) -- | Reference to which the message applies. data StatusMessageRefersTo diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs @@ -21,17 +21,17 @@ -- Portability : non-portable (GHC extensions) -- -- 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. +-- 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@. +-- /See:/ for @clouddebugger.controller.debuggees.breakpoints.list@. module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List ( -- * REST Resource @@ -44,11 +44,9 @@ -- * Request Lenses , cdblXgafv , cdblUploadProtocol - , cdblPp , cdblAccessToken , cdblUploadType , cdblSuccessOnTimeout - , cdblBearerToken , cdblWaitToken , cdblDebuggeeId , cdblCallback @@ -67,36 +65,32 @@ "breakpoints" :> QueryParam "$.xgafv" Xgafv :> 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 + 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 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. +-- 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) - , _cdblPp :: !Bool , _cdblAccessToken :: !(Maybe Text) , _cdblUploadType :: !(Maybe Text) , _cdblSuccessOnTimeout :: !(Maybe Bool) - , _cdblBearerToken :: !(Maybe Text) , _cdblWaitToken :: !(Maybe Text) , _cdblDebuggeeId :: !Text , _cdblCallback :: !(Maybe Text) @@ -110,16 +104,12 @@ -- -- * 'cdblUploadProtocol' -- --- * 'cdblPp' --- -- * 'cdblAccessToken' -- -- * 'cdblUploadType' -- -- * 'cdblSuccessOnTimeout' -- --- * 'cdblBearerToken' --- -- * 'cdblWaitToken' -- -- * 'cdblDebuggeeId' @@ -132,11 +122,9 @@ ControllerDebuggeesBreakpointsList' { _cdblXgafv = Nothing , _cdblUploadProtocol = Nothing - , _cdblPp = True , _cdblAccessToken = Nothing , _cdblUploadType = Nothing , _cdblSuccessOnTimeout = Nothing - , _cdblBearerToken = Nothing , _cdblWaitToken = Nothing , _cdblDebuggeeId = pCdblDebuggeeId_ , _cdblCallback = Nothing @@ -153,10 +141,6 @@ = 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 @@ -169,25 +153,20 @@ = 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). +-- | 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}) --- | 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. +-- | 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 @@ -213,11 +192,9 @@ "https://www.googleapis.com/auth/cloud_debugger"] requestClient ControllerDebuggeesBreakpointsList'{..} = go _cdblDebuggeeId _cdblXgafv _cdblUploadProtocol - (Just _cdblPp) _cdblAccessToken _cdblUploadType _cdblSuccessOnTimeout - _cdblBearerToken _cdblWaitToken _cdblCallback (Just AltJSON) diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs @@ -24,11 +24,11 @@ -- 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 --- \`expression\` fields should not alter the breakpoint semantics. These +-- \`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@. +-- /See:/ for @clouddebugger.controller.debuggees.breakpoints.update@. module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update ( -- * REST Resource @@ -41,11 +41,9 @@ -- * Request Lenses , cdbuXgafv , cdbuUploadProtocol - , cdbuPp , cdbuAccessToken , cdbuUploadType , cdbuPayload - , cdbuBearerToken , cdbuId , cdbuDebuggeeId , cdbuCallback @@ -65,20 +63,18 @@ Capture "id" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] UpdateActiveBreakpointRequest - :> Put '[JSON] UpdateActiveBreakpointResponse + 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 --- \`expression\` fields should not alter the breakpoint semantics. These +-- \`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. -- @@ -86,11 +82,9 @@ data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate' { _cdbuXgafv :: !(Maybe Xgafv) , _cdbuUploadProtocol :: !(Maybe Text) - , _cdbuPp :: !Bool , _cdbuAccessToken :: !(Maybe Text) , _cdbuUploadType :: !(Maybe Text) , _cdbuPayload :: !UpdateActiveBreakpointRequest - , _cdbuBearerToken :: !(Maybe Text) , _cdbuId :: !Text , _cdbuDebuggeeId :: !Text , _cdbuCallback :: !(Maybe Text) @@ -104,16 +98,12 @@ -- -- * 'cdbuUploadProtocol' -- --- * 'cdbuPp' --- -- * 'cdbuAccessToken' -- -- * 'cdbuUploadType' -- -- * 'cdbuPayload' -- --- * 'cdbuBearerToken' --- -- * 'cdbuId' -- -- * 'cdbuDebuggeeId' @@ -128,11 +118,9 @@ ControllerDebuggeesBreakpointsUpdate' { _cdbuXgafv = Nothing , _cdbuUploadProtocol = Nothing - , _cdbuPp = True , _cdbuAccessToken = Nothing , _cdbuUploadType = Nothing , _cdbuPayload = pCdbuPayload_ - , _cdbuBearerToken = Nothing , _cdbuId = pCdbuId_ , _cdbuDebuggeeId = pCdbuDebuggeeId_ , _cdbuCallback = Nothing @@ -149,10 +137,6 @@ = lens _cdbuUploadProtocol (\ s a -> s{_cdbuUploadProtocol = a}) --- | Pretty-print response. -cdbuPp :: Lens' ControllerDebuggeesBreakpointsUpdate Bool -cdbuPp = lens _cdbuPp (\ s a -> s{_cdbuPp = a}) - -- | OAuth access token. cdbuAccessToken :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) cdbuAccessToken @@ -170,12 +154,6 @@ cdbuPayload = lens _cdbuPayload (\ s a -> s{_cdbuPayload = a}) --- | OAuth bearer token. -cdbuBearerToken :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) -cdbuBearerToken - = lens _cdbuBearerToken - (\ s a -> s{_cdbuBearerToken = a}) - -- | Breakpoint identifier, unique in the scope of the debuggee. cdbuId :: Lens' ControllerDebuggeesBreakpointsUpdate Text cdbuId = lens _cdbuId (\ s a -> s{_cdbuId = a}) @@ -202,10 +180,8 @@ ControllerDebuggeesBreakpointsUpdate'{..} = go _cdbuDebuggeeId _cdbuId _cdbuXgafv _cdbuUploadProtocol - (Just _cdbuPp) _cdbuAccessToken _cdbuUploadType - _cdbuBearerToken _cdbuCallback (Just AltJSON) _cdbuPayload diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs @@ -21,15 +21,15 @@ -- Portability : non-portable (GHC extensions) -- -- Registers the debuggee with the controller service. All agents attached --- to the same application should call this method with 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 allows the controller service to --- disable the agent or recover from any data loss. If the debuggee is --- disabled by the server, the response will have \`is_disabled\` set to --- \`true\`. +-- 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@. +-- /See:/ for @clouddebugger.controller.debuggees.register@. module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register ( -- * REST Resource @@ -42,11 +42,9 @@ -- * Request Lenses , cdrXgafv , cdrUploadProtocol - , cdrPp , cdrAccessToken , cdrUploadType , cdrPayload - , cdrBearerToken , cdrCallback ) where @@ -62,33 +60,29 @@ "register" :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] RegisterDebuggeeRequest :> - Post '[JSON] RegisterDebuggeeResponse + 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 should call this method with 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 allows the controller service to --- disable the agent or recover from any data loss. If the debuggee is --- disabled by the server, the response will have \`is_disabled\` set to --- \`true\`. +-- 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) - , _cdrPp :: !Bool , _cdrAccessToken :: !(Maybe Text) , _cdrUploadType :: !(Maybe Text) , _cdrPayload :: !RegisterDebuggeeRequest - , _cdrBearerToken :: !(Maybe Text) , _cdrCallback :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -100,16 +94,12 @@ -- -- * 'cdrUploadProtocol' -- --- * 'cdrPp' --- -- * 'cdrAccessToken' -- -- * 'cdrUploadType' -- -- * 'cdrPayload' -- --- * 'cdrBearerToken' --- -- * 'cdrCallback' controllerDebuggeesRegister :: RegisterDebuggeeRequest -- ^ 'cdrPayload' @@ -118,11 +108,9 @@ ControllerDebuggeesRegister' { _cdrXgafv = Nothing , _cdrUploadProtocol = Nothing - , _cdrPp = True , _cdrAccessToken = Nothing , _cdrUploadType = Nothing , _cdrPayload = pCdrPayload_ - , _cdrBearerToken = Nothing , _cdrCallback = Nothing } @@ -136,10 +124,6 @@ = lens _cdrUploadProtocol (\ s a -> s{_cdrUploadProtocol = a}) --- | Pretty-print response. -cdrPp :: Lens' ControllerDebuggeesRegister Bool -cdrPp = lens _cdrPp (\ s a -> s{_cdrPp = a}) - -- | OAuth access token. cdrAccessToken :: Lens' ControllerDebuggeesRegister (Maybe Text) cdrAccessToken @@ -157,12 +141,6 @@ cdrPayload = lens _cdrPayload (\ s a -> s{_cdrPayload = a}) --- | OAuth bearer token. -cdrBearerToken :: Lens' ControllerDebuggeesRegister (Maybe Text) -cdrBearerToken - = lens _cdrBearerToken - (\ s a -> s{_cdrBearerToken = a}) - -- | JSONP cdrCallback :: Lens' ControllerDebuggeesRegister (Maybe Text) cdrCallback @@ -176,10 +154,8 @@ '["https://www.googleapis.com/auth/cloud-platform", "https://www.googleapis.com/auth/cloud_debugger"] requestClient ControllerDebuggeesRegister'{..} - = go _cdrXgafv _cdrUploadProtocol (Just _cdrPp) - _cdrAccessToken + = go _cdrXgafv _cdrUploadProtocol _cdrAccessToken _cdrUploadType - _cdrBearerToken _cdrCallback (Just AltJSON) _cdrPayload diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes the breakpoint from the debuggee. -- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.delete@. +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.delete@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete ( -- * REST Resource @@ -35,11 +35,9 @@ -- * Request Lenses , ddbdXgafv , ddbdUploadProtocol - , ddbdPp , ddbdAccessToken , ddbdUploadType , ddbdBreakpointId - , ddbdBearerToken , ddbdDebuggeeId , ddbdClientVersion , ddbdCallback @@ -59,14 +57,11 @@ Capture "breakpointId" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Delete '[JSON] Empty + 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. -- @@ -74,11 +69,9 @@ data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete' { _ddbdXgafv :: !(Maybe Xgafv) , _ddbdUploadProtocol :: !(Maybe Text) - , _ddbdPp :: !Bool , _ddbdAccessToken :: !(Maybe Text) , _ddbdUploadType :: !(Maybe Text) , _ddbdBreakpointId :: !Text - , _ddbdBearerToken :: !(Maybe Text) , _ddbdDebuggeeId :: !Text , _ddbdClientVersion :: !(Maybe Text) , _ddbdCallback :: !(Maybe Text) @@ -92,16 +85,12 @@ -- -- * 'ddbdUploadProtocol' -- --- * 'ddbdPp' --- -- * 'ddbdAccessToken' -- -- * 'ddbdUploadType' -- -- * 'ddbdBreakpointId' -- --- * 'ddbdBearerToken' --- -- * 'ddbdDebuggeeId' -- -- * 'ddbdClientVersion' @@ -115,11 +104,9 @@ DebuggerDebuggeesBreakpointsDelete' { _ddbdXgafv = Nothing , _ddbdUploadProtocol = Nothing - , _ddbdPp = True , _ddbdAccessToken = Nothing , _ddbdUploadType = Nothing , _ddbdBreakpointId = pDdbdBreakpointId_ - , _ddbdBearerToken = Nothing , _ddbdDebuggeeId = pDdbdDebuggeeId_ , _ddbdClientVersion = Nothing , _ddbdCallback = Nothing @@ -136,10 +123,6 @@ = lens _ddbdUploadProtocol (\ s a -> s{_ddbdUploadProtocol = a}) --- | Pretty-print response. -ddbdPp :: Lens' DebuggerDebuggeesBreakpointsDelete Bool -ddbdPp = lens _ddbdPp (\ s a -> s{_ddbdPp = a}) - -- | OAuth access token. ddbdAccessToken :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) ddbdAccessToken @@ -158,19 +141,13 @@ = lens _ddbdBreakpointId (\ s a -> s{_ddbdBreakpointId = a}) --- | OAuth bearer token. -ddbdBearerToken :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) -ddbdBearerToken - = lens _ddbdBearerToken - (\ s a -> s{_ddbdBearerToken = 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. Following: \`domain\/type\/version\` +-- | The client version making the call. Schema: \`domain\/type\/version\` -- (e.g., \`google.com\/intellij\/v1\`). ddbdClientVersion :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) ddbdClientVersion @@ -191,10 +168,8 @@ requestClient DebuggerDebuggeesBreakpointsDelete'{..} = go _ddbdDebuggeeId _ddbdBreakpointId _ddbdXgafv _ddbdUploadProtocol - (Just _ddbdPp) _ddbdAccessToken _ddbdUploadType - _ddbdBearerToken _ddbdClientVersion _ddbdCallback (Just AltJSON) diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs @@ -22,7 +22,7 @@ -- -- Gets breakpoint information. -- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.get@. +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.get@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get ( -- * REST Resource @@ -35,11 +35,9 @@ -- * Request Lenses , ddbgXgafv , ddbgUploadProtocol - , ddbgPp , ddbgAccessToken , ddbgUploadType , ddbgBreakpointId - , ddbgBearerToken , ddbgDebuggeeId , ddbgClientVersion , ddbgCallback @@ -59,14 +57,12 @@ Capture "breakpointId" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] GetBreakpointResponse + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "clientVersion" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetBreakpointResponse -- | Gets breakpoint information. -- @@ -74,11 +70,9 @@ data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet' { _ddbgXgafv :: !(Maybe Xgafv) , _ddbgUploadProtocol :: !(Maybe Text) - , _ddbgPp :: !Bool , _ddbgAccessToken :: !(Maybe Text) , _ddbgUploadType :: !(Maybe Text) , _ddbgBreakpointId :: !Text - , _ddbgBearerToken :: !(Maybe Text) , _ddbgDebuggeeId :: !Text , _ddbgClientVersion :: !(Maybe Text) , _ddbgCallback :: !(Maybe Text) @@ -92,16 +86,12 @@ -- -- * 'ddbgUploadProtocol' -- --- * 'ddbgPp' --- -- * 'ddbgAccessToken' -- -- * 'ddbgUploadType' -- -- * 'ddbgBreakpointId' -- --- * 'ddbgBearerToken' --- -- * 'ddbgDebuggeeId' -- -- * 'ddbgClientVersion' @@ -115,11 +105,9 @@ DebuggerDebuggeesBreakpointsGet' { _ddbgXgafv = Nothing , _ddbgUploadProtocol = Nothing - , _ddbgPp = True , _ddbgAccessToken = Nothing , _ddbgUploadType = Nothing , _ddbgBreakpointId = pDdbgBreakpointId_ - , _ddbgBearerToken = Nothing , _ddbgDebuggeeId = pDdbgDebuggeeId_ , _ddbgClientVersion = Nothing , _ddbgCallback = Nothing @@ -136,10 +124,6 @@ = lens _ddbgUploadProtocol (\ s a -> s{_ddbgUploadProtocol = a}) --- | Pretty-print response. -ddbgPp :: Lens' DebuggerDebuggeesBreakpointsGet Bool -ddbgPp = lens _ddbgPp (\ s a -> s{_ddbgPp = a}) - -- | OAuth access token. ddbgAccessToken :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) ddbgAccessToken @@ -158,19 +142,13 @@ = lens _ddbgBreakpointId (\ s a -> s{_ddbgBreakpointId = a}) --- | OAuth bearer token. -ddbgBearerToken :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) -ddbgBearerToken - = lens _ddbgBearerToken - (\ s a -> s{_ddbgBearerToken = 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. Following: \`domain\/type\/version\` +-- | The client version making the call. Schema: \`domain\/type\/version\` -- (e.g., \`google.com\/intellij\/v1\`). ddbgClientVersion :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) ddbgClientVersion @@ -192,10 +170,8 @@ requestClient DebuggerDebuggeesBreakpointsGet'{..} = go _ddbgDebuggeeId _ddbgBreakpointId _ddbgXgafv _ddbgUploadProtocol - (Just _ddbgPp) _ddbgAccessToken _ddbgUploadType - _ddbgBearerToken _ddbgClientVersion _ddbgCallback (Just AltJSON) diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs @@ -22,7 +22,7 @@ -- -- Lists all breakpoints for the debuggee. -- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.list@. +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.list@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List ( -- * REST Resource @@ -36,12 +36,10 @@ , ddblXgafv , ddblIncludeInactive , ddblUploadProtocol - , ddblPp , ddblAccessToken , ddblActionValue , ddblUploadType , ddblStripResults - , ddblBearerToken , ddblIncludeAllUsers , ddblWaitToken , ddblDebuggeeId @@ -63,18 +61,16 @@ QueryParam "$.xgafv" Xgafv :> QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "action.value" Text :> - QueryParam "uploadType" Text :> - QueryParam "stripResults" Bool :> - QueryParam "bearer_token" Text :> - QueryParam "includeAllUsers" Bool :> - QueryParam "waitToken" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListBreakpointsResponse + 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. -- @@ -83,12 +79,10 @@ { _ddblXgafv :: !(Maybe Xgafv) , _ddblIncludeInactive :: !(Maybe Bool) , _ddblUploadProtocol :: !(Maybe Text) - , _ddblPp :: !Bool , _ddblAccessToken :: !(Maybe Text) , _ddblActionValue :: !(Maybe Text) , _ddblUploadType :: !(Maybe Text) , _ddblStripResults :: !(Maybe Bool) - , _ddblBearerToken :: !(Maybe Text) , _ddblIncludeAllUsers :: !(Maybe Bool) , _ddblWaitToken :: !(Maybe Text) , _ddblDebuggeeId :: !Text @@ -106,8 +100,6 @@ -- -- * 'ddblUploadProtocol' -- --- * 'ddblPp' --- -- * 'ddblAccessToken' -- -- * 'ddblActionValue' @@ -116,8 +108,6 @@ -- -- * 'ddblStripResults' -- --- * 'ddblBearerToken' --- -- * 'ddblIncludeAllUsers' -- -- * 'ddblWaitToken' @@ -135,12 +125,10 @@ { _ddblXgafv = Nothing , _ddblIncludeInactive = Nothing , _ddblUploadProtocol = Nothing - , _ddblPp = True , _ddblAccessToken = Nothing , _ddblActionValue = Nothing , _ddblUploadType = Nothing , _ddblStripResults = Nothing - , _ddblBearerToken = Nothing , _ddblIncludeAllUsers = Nothing , _ddblWaitToken = Nothing , _ddblDebuggeeId = pDdblDebuggeeId_ @@ -166,10 +154,6 @@ = lens _ddblUploadProtocol (\ s a -> s{_ddblUploadProtocol = a}) --- | Pretty-print response. -ddblPp :: Lens' DebuggerDebuggeesBreakpointsList Bool -ddblPp = lens _ddblPp (\ s a -> s{_ddblPp = a}) - -- | OAuth access token. ddblAccessToken :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) ddblAccessToken @@ -196,12 +180,6 @@ = lens _ddblStripResults (\ s a -> s{_ddblStripResults = a}) --- | OAuth bearer token. -ddblBearerToken :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) -ddblBearerToken - = lens _ddblBearerToken - (\ s a -> s{_ddblBearerToken = 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) @@ -225,7 +203,7 @@ = lens _ddblDebuggeeId (\ s a -> s{_ddblDebuggeeId = a}) --- | The client version making the call. Following: \`domain\/type\/version\` +-- | The client version making the call. Schema: \`domain\/type\/version\` -- (e.g., \`google.com\/intellij\/v1\`). ddblClientVersion :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) ddblClientVersion @@ -247,12 +225,10 @@ requestClient DebuggerDebuggeesBreakpointsList'{..} = go _ddblDebuggeeId _ddblXgafv _ddblIncludeInactive _ddblUploadProtocol - (Just _ddblPp) _ddblAccessToken _ddblActionValue _ddblUploadType _ddblStripResults - _ddblBearerToken _ddblIncludeAllUsers _ddblWaitToken _ddblClientVersion diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs @@ -22,7 +22,7 @@ -- -- Sets the breakpoint to the debuggee. -- --- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.set@. +-- /See:/ for @clouddebugger.debugger.debuggees.breakpoints.set@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set ( -- * REST Resource @@ -35,11 +35,9 @@ -- * Request Lenses , ddbsXgafv , ddbsUploadProtocol - , ddbsPp , ddbsAccessToken , ddbsUploadType , ddbsPayload - , ddbsBearerToken , ddbsDebuggeeId , ddbsClientVersion , ddbsCallback @@ -59,15 +57,13 @@ "set" :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Breakpoint :> - Post '[JSON] SetBreakpointResponse + 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. -- @@ -75,11 +71,9 @@ data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet' { _ddbsXgafv :: !(Maybe Xgafv) , _ddbsUploadProtocol :: !(Maybe Text) - , _ddbsPp :: !Bool , _ddbsAccessToken :: !(Maybe Text) , _ddbsUploadType :: !(Maybe Text) , _ddbsPayload :: !Breakpoint - , _ddbsBearerToken :: !(Maybe Text) , _ddbsDebuggeeId :: !Text , _ddbsClientVersion :: !(Maybe Text) , _ddbsCallback :: !(Maybe Text) @@ -93,16 +87,12 @@ -- -- * 'ddbsUploadProtocol' -- --- * 'ddbsPp' --- -- * 'ddbsAccessToken' -- -- * 'ddbsUploadType' -- -- * 'ddbsPayload' -- --- * 'ddbsBearerToken' --- -- * 'ddbsDebuggeeId' -- -- * 'ddbsClientVersion' @@ -116,11 +106,9 @@ DebuggerDebuggeesBreakpointsSet' { _ddbsXgafv = Nothing , _ddbsUploadProtocol = Nothing - , _ddbsPp = True , _ddbsAccessToken = Nothing , _ddbsUploadType = Nothing , _ddbsPayload = pDdbsPayload_ - , _ddbsBearerToken = Nothing , _ddbsDebuggeeId = pDdbsDebuggeeId_ , _ddbsClientVersion = Nothing , _ddbsCallback = Nothing @@ -137,10 +125,6 @@ = lens _ddbsUploadProtocol (\ s a -> s{_ddbsUploadProtocol = a}) --- | Pretty-print response. -ddbsPp :: Lens' DebuggerDebuggeesBreakpointsSet Bool -ddbsPp = lens _ddbsPp (\ s a -> s{_ddbsPp = a}) - -- | OAuth access token. ddbsAccessToken :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) ddbsAccessToken @@ -158,19 +142,13 @@ ddbsPayload = lens _ddbsPayload (\ s a -> s{_ddbsPayload = a}) --- | OAuth bearer token. -ddbsBearerToken :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) -ddbsBearerToken - = lens _ddbsBearerToken - (\ s a -> s{_ddbsBearerToken = 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. Following: \`domain\/type\/version\` +-- | The client version making the call. Schema: \`domain\/type\/version\` -- (e.g., \`google.com\/intellij\/v1\`). ddbsClientVersion :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) ddbsClientVersion @@ -191,10 +169,8 @@ "https://www.googleapis.com/auth/cloud_debugger"] requestClient DebuggerDebuggeesBreakpointsSet'{..} = go _ddbsDebuggeeId _ddbsXgafv _ddbsUploadProtocol - (Just _ddbsPp) _ddbsAccessToken _ddbsUploadType - _ddbsBearerToken _ddbsClientVersion _ddbsCallback (Just AltJSON) diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs @@ -20,9 +20,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Lists all the debuggees that the user can set breakpoints to. +-- Lists all the debuggees that the user has access to. -- --- /See:/ for @clouddebugger.debugger.debuggees.list@. +-- /See:/ for @clouddebugger.debugger.debuggees.list@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List ( -- * REST Resource @@ -37,10 +37,8 @@ , ddlIncludeInactive , ddlUploadProtocol , ddlProject - , ddlPp , ddlAccessToken , ddlUploadType - , ddlBearerToken , ddlClientVersion , ddlCallback ) where @@ -58,16 +56,14 @@ QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> QueryParam "project" Text :> - QueryParam "pp" Bool :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "bearer_token" Text :> - QueryParam "clientVersion" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListDebuggeesResponse + 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 can set breakpoints to. +-- | Lists all the debuggees that the user has access to. -- -- /See:/ 'debuggerDebuggeesList' smart constructor. data DebuggerDebuggeesList = DebuggerDebuggeesList' @@ -75,10 +71,8 @@ , _ddlIncludeInactive :: !(Maybe Bool) , _ddlUploadProtocol :: !(Maybe Text) , _ddlProject :: !(Maybe Text) - , _ddlPp :: !Bool , _ddlAccessToken :: !(Maybe Text) , _ddlUploadType :: !(Maybe Text) - , _ddlBearerToken :: !(Maybe Text) , _ddlClientVersion :: !(Maybe Text) , _ddlCallback :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -95,14 +89,10 @@ -- -- * 'ddlProject' -- --- * 'ddlPp' --- -- * 'ddlAccessToken' -- -- * 'ddlUploadType' -- --- * 'ddlBearerToken' --- -- * 'ddlClientVersion' -- -- * 'ddlCallback' @@ -114,10 +104,8 @@ , _ddlIncludeInactive = Nothing , _ddlUploadProtocol = Nothing , _ddlProject = Nothing - , _ddlPp = True , _ddlAccessToken = Nothing , _ddlUploadType = Nothing - , _ddlBearerToken = Nothing , _ddlClientVersion = Nothing , _ddlCallback = Nothing } @@ -144,10 +132,6 @@ ddlProject = lens _ddlProject (\ s a -> s{_ddlProject = a}) --- | Pretty-print response. -ddlPp :: Lens' DebuggerDebuggeesList Bool -ddlPp = lens _ddlPp (\ s a -> s{_ddlPp = a}) - -- | OAuth access token. ddlAccessToken :: Lens' DebuggerDebuggeesList (Maybe Text) ddlAccessToken @@ -160,13 +144,7 @@ = lens _ddlUploadType (\ s a -> s{_ddlUploadType = a}) --- | OAuth bearer token. -ddlBearerToken :: Lens' DebuggerDebuggeesList (Maybe Text) -ddlBearerToken - = lens _ddlBearerToken - (\ s a -> s{_ddlBearerToken = a}) - --- | The client version making the call. Following: \`domain\/type\/version\` +-- | The client version making the call. Schema: \`domain\/type\/version\` -- (e.g., \`google.com\/intellij\/v1\`). ddlClientVersion :: Lens' DebuggerDebuggeesList (Maybe Text) ddlClientVersion @@ -186,10 +164,8 @@ requestClient DebuggerDebuggeesList'{..} = go _ddlXgafv _ddlIncludeInactive _ddlUploadProtocol _ddlProject - (Just _ddlPp) _ddlAccessToken _ddlUploadType - _ddlBearerToken _ddlClientVersion _ddlCallback (Just AltJSON) diff --git a/gogol-debugger.cabal b/gogol-debugger.cabal --- a/gogol-debugger.cabal +++ b/gogol-debugger.cabal @@ -1,5 +1,5 @@ name: gogol-debugger -version: 0.3.0 +version: 0.4.0 synopsis: Google Stackdriver Debugger SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -50,5 +50,5 @@ , Network.Google.Debugger.Types.Sum build-depends: - gogol-core == 0.3.0.* + gogol-core == 0.4.0.* , base >= 4.7 && < 5