module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register
(
ControllerDebuggeesRegisterResource
, controllerDebuggeesRegister
, ControllerDebuggeesRegister
, cdrXgafv
, cdrUploadProtocol
, cdrPp
, cdrAccessToken
, cdrUploadType
, cdrPayload
, cdrBearerToken
, cdrCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
type ControllerDebuggeesRegisterResource =
"v2" :>
"controller" :>
"debuggees" :>
"register" :>
QueryParam "$.xgafv" Text :>
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
data ControllerDebuggeesRegister = ControllerDebuggeesRegister
{ _cdrXgafv :: !(Maybe Text)
, _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)
controllerDebuggeesRegister
:: RegisterDebuggeeRequest
-> ControllerDebuggeesRegister
controllerDebuggeesRegister pCdrPayload_ =
ControllerDebuggeesRegister
{ _cdrXgafv = Nothing
, _cdrUploadProtocol = Nothing
, _cdrPp = True
, _cdrAccessToken = Nothing
, _cdrUploadType = Nothing
, _cdrPayload = pCdrPayload_
, _cdrBearerToken = Nothing
, _cdrCallback = Nothing
}
cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrXgafv = lens _cdrXgafv (\ s a -> s{_cdrXgafv = a})
cdrUploadProtocol :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrUploadProtocol
= lens _cdrUploadProtocol
(\ s a -> s{_cdrUploadProtocol = a})
cdrPp :: Lens' ControllerDebuggeesRegister Bool
cdrPp = lens _cdrPp (\ s a -> s{_cdrPp = 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})
cdrBearerToken :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrBearerToken
= lens _cdrBearerToken
(\ s a -> s{_cdrBearerToken = a})
cdrCallback :: Lens' ControllerDebuggeesRegister (Maybe Text)
cdrCallback
= lens _cdrCallback (\ s a -> s{_cdrCallback = a})
instance GoogleRequest ControllerDebuggeesRegister
where
type Rs ControllerDebuggeesRegister =
RegisterDebuggeeResponse
requestClient ControllerDebuggeesRegister{..}
= go _cdrXgafv _cdrUploadProtocol (Just _cdrPp)
_cdrAccessToken
_cdrUploadType
_cdrBearerToken
_cdrCallback
(Just AltJSON)
_cdrPayload
debuggerService
where go
= buildClient
(Proxy :: Proxy ControllerDebuggeesRegisterResource)
mempty