module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete
(
DebuggerDebuggeesBreakpointsDeleteResource
, debuggerDebuggeesBreakpointsDelete
, DebuggerDebuggeesBreakpointsDelete
, ddbdXgafv
, ddbdUploadProtocol
, ddbdPp
, ddbdAccessToken
, ddbdUploadType
, ddbdBreakpointId
, ddbdBearerToken
, ddbdDebuggeeId
, ddbdClientVersion
, ddbdCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
type DebuggerDebuggeesBreakpointsDeleteResource =
"v2" :>
"debugger" :>
"debuggees" :>
Capture "debuggeeId" Text :>
"breakpoints" :>
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
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)
} deriving (Eq,Show,Data,Typeable,Generic)
debuggerDebuggeesBreakpointsDelete
:: Text
-> Text
-> DebuggerDebuggeesBreakpointsDelete
debuggerDebuggeesBreakpointsDelete pDdbdBreakpointId_ pDdbdDebuggeeId_ =
DebuggerDebuggeesBreakpointsDelete'
{ _ddbdXgafv = Nothing
, _ddbdUploadProtocol = Nothing
, _ddbdPp = True
, _ddbdAccessToken = Nothing
, _ddbdUploadType = Nothing
, _ddbdBreakpointId = pDdbdBreakpointId_
, _ddbdBearerToken = Nothing
, _ddbdDebuggeeId = pDdbdDebuggeeId_
, _ddbdClientVersion = Nothing
, _ddbdCallback = Nothing
}
ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Xgafv)
ddbdXgafv
= lens _ddbdXgafv (\ s a -> s{_ddbdXgafv = a})
ddbdUploadProtocol :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)
ddbdUploadProtocol
= lens _ddbdUploadProtocol
(\ s a -> s{_ddbdUploadProtocol = a})
ddbdPp :: Lens' DebuggerDebuggeesBreakpointsDelete Bool
ddbdPp = lens _ddbdPp (\ s a -> s{_ddbdPp = a})
ddbdAccessToken :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)
ddbdAccessToken
= lens _ddbdAccessToken
(\ s a -> s{_ddbdAccessToken = a})
ddbdUploadType :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)
ddbdUploadType
= lens _ddbdUploadType
(\ s a -> s{_ddbdUploadType = a})
ddbdBreakpointId :: Lens' DebuggerDebuggeesBreakpointsDelete Text
ddbdBreakpointId
= lens _ddbdBreakpointId
(\ s a -> s{_ddbdBreakpointId = a})
ddbdBearerToken :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)
ddbdBearerToken
= lens _ddbdBearerToken
(\ s a -> s{_ddbdBearerToken = a})
ddbdDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsDelete Text
ddbdDebuggeeId
= lens _ddbdDebuggeeId
(\ s a -> s{_ddbdDebuggeeId = a})
ddbdClientVersion :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)
ddbdClientVersion
= lens _ddbdClientVersion
(\ s a -> s{_ddbdClientVersion = a})
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
(Just _ddbdPp)
_ddbdAccessToken
_ddbdUploadType
_ddbdBearerToken
_ddbdClientVersion
_ddbdCallback
(Just AltJSON)
debuggerService
where go
= buildClient
(Proxy ::
Proxy DebuggerDebuggeesBreakpointsDeleteResource)
mempty