{-# 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
(
ControllerDebuggeesRegisterResource
, controllerDebuggeesRegister
, ControllerDebuggeesRegister
, cdrXgafv
, cdrUploadProtocol
, cdrAccessToken
, cdrUploadType
, cdrPayload
, cdrCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
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
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)
controllerDebuggeesRegister
:: RegisterDebuggeeRequest
-> ControllerDebuggeesRegister
controllerDebuggeesRegister pCdrPayload_ =
ControllerDebuggeesRegister'
{ _cdrXgafv = Nothing
, _cdrUploadProtocol = Nothing
, _cdrAccessToken = Nothing
, _cdrUploadType = Nothing
, _cdrPayload = pCdrPayload_
, _cdrCallback = Nothing
}
cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Xgafv)
cdrXgafv = lens _cdrXgafv (\ s a -> s{_cdrXgafv = a})
cdrUploadProtocol :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrUploadProtocol
= lens _cdrUploadProtocol
(\ s a -> s{_cdrUploadProtocol = a})
cdrAccessToken :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrAccessToken
= lens _cdrAccessToken
(\ s a -> s{_cdrAccessToken = a})
cdrUploadType :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrUploadType
= lens _cdrUploadType
(\ s a -> s{_cdrUploadType = a})
cdrPayload :: Lens' ControllerDebuggeesRegister RegisterDebuggeeRequest
cdrPayload
= lens _cdrPayload (\ s a -> s{_cdrPayload = a})
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