module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update
(
ControllerDebuggeesBreakpointsUpdateResource
, controllerDebuggeesBreakpointsUpdate
, ControllerDebuggeesBreakpointsUpdate
, cdbuXgafv
, cdbuUploadProtocol
, cdbuPp
, cdbuAccessToken
, cdbuUploadType
, cdbuPayload
, cdbuBearerToken
, cdbuId
, cdbuDebuggeeId
, cdbuCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
type ControllerDebuggeesBreakpointsUpdateResource =
"v2" :>
"controller" :>
"debuggees" :>
Capture "debuggeeId" Text :>
"breakpoints" :>
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
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)
} deriving (Eq,Show,Data,Typeable,Generic)
controllerDebuggeesBreakpointsUpdate
:: UpdateActiveBreakpointRequest
-> Text
-> Text
-> ControllerDebuggeesBreakpointsUpdate
controllerDebuggeesBreakpointsUpdate pCdbuPayload_ pCdbuId_ pCdbuDebuggeeId_ =
ControllerDebuggeesBreakpointsUpdate'
{ _cdbuXgafv = Nothing
, _cdbuUploadProtocol = Nothing
, _cdbuPp = True
, _cdbuAccessToken = Nothing
, _cdbuUploadType = Nothing
, _cdbuPayload = pCdbuPayload_
, _cdbuBearerToken = Nothing
, _cdbuId = pCdbuId_
, _cdbuDebuggeeId = pCdbuDebuggeeId_
, _cdbuCallback = Nothing
}
cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Xgafv)
cdbuXgafv
= lens _cdbuXgafv (\ s a -> s{_cdbuXgafv = a})
cdbuUploadProtocol :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text)
cdbuUploadProtocol
= lens _cdbuUploadProtocol
(\ s a -> s{_cdbuUploadProtocol = a})
cdbuPp :: Lens' ControllerDebuggeesBreakpointsUpdate Bool
cdbuPp = lens _cdbuPp (\ s a -> s{_cdbuPp = a})
cdbuAccessToken :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text)
cdbuAccessToken
= lens _cdbuAccessToken
(\ s a -> s{_cdbuAccessToken = a})
cdbuUploadType :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text)
cdbuUploadType
= lens _cdbuUploadType
(\ s a -> s{_cdbuUploadType = a})
cdbuPayload :: Lens' ControllerDebuggeesBreakpointsUpdate UpdateActiveBreakpointRequest
cdbuPayload
= lens _cdbuPayload (\ s a -> s{_cdbuPayload = a})
cdbuBearerToken :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text)
cdbuBearerToken
= lens _cdbuBearerToken
(\ s a -> s{_cdbuBearerToken = a})
cdbuId :: Lens' ControllerDebuggeesBreakpointsUpdate Text
cdbuId = lens _cdbuId (\ s a -> s{_cdbuId = a})
cdbuDebuggeeId :: Lens' ControllerDebuggeesBreakpointsUpdate Text
cdbuDebuggeeId
= lens _cdbuDebuggeeId
(\ s a -> s{_cdbuDebuggeeId = a})
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
(Just _cdbuPp)
_cdbuAccessToken
_cdbuUploadType
_cdbuBearerToken
_cdbuCallback
(Just AltJSON)
_cdbuPayload
debuggerService
where go
= buildClient
(Proxy ::
Proxy ControllerDebuggeesBreakpointsUpdateResource)
mempty