{-# 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.Debugger.Debuggees.List
(
DebuggerDebuggeesListResource
, debuggerDebuggeesList
, DebuggerDebuggeesList
, ddlXgafv
, ddlIncludeInactive
, ddlUploadProtocol
, ddlProject
, ddlPp
, ddlAccessToken
, ddlUploadType
, ddlBearerToken
, ddlClientVersion
, ddlCallback
) where
import Network.Google.Debugger.Types
import Network.Google.Prelude
type DebuggerDebuggeesListResource =
"v2" :>
"debugger" :>
"debuggees" :>
QueryParam "$.xgafv" Text :>
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
-- | Lists all the debuggees that the user can set breakpoints to.
--
-- /See:/ 'debuggerDebuggeesList' smart constructor.
data DebuggerDebuggeesList = DebuggerDebuggeesList'
{ _ddlXgafv :: !(Maybe Text)
, _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)
-- | Creates a value of 'DebuggerDebuggeesList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ddlXgafv'
--
-- * 'ddlIncludeInactive'
--
-- * 'ddlUploadProtocol'
--
-- * 'ddlProject'
--
-- * 'ddlPp'
--
-- * 'ddlAccessToken'
--
-- * 'ddlUploadType'
--
-- * 'ddlBearerToken'
--
-- * 'ddlClientVersion'
--
-- * 'ddlCallback'
debuggerDebuggeesList
:: DebuggerDebuggeesList
debuggerDebuggeesList =
DebuggerDebuggeesList'
{ _ddlXgafv = Nothing
, _ddlIncludeInactive = Nothing
, _ddlUploadProtocol = Nothing
, _ddlProject = Nothing
, _ddlPp = True
, _ddlAccessToken = Nothing
, _ddlUploadType = Nothing
, _ddlBearerToken = Nothing
, _ddlClientVersion = Nothing
, _ddlCallback = Nothing
}
-- | V1 error format.
ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Text)
ddlXgafv = lens _ddlXgafv (\ s a -> s{_ddlXgafv = a})
-- | When set to \`true\`, the result includes all debuggees. Otherwise, the
-- result includes only debuggees that are active.
ddlIncludeInactive :: Lens' DebuggerDebuggeesList (Maybe Bool)
ddlIncludeInactive
= lens _ddlIncludeInactive
(\ s a -> s{_ddlIncludeInactive = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
ddlUploadProtocol :: Lens' DebuggerDebuggeesList (Maybe Text)
ddlUploadProtocol
= lens _ddlUploadProtocol
(\ s a -> s{_ddlUploadProtocol = a})
-- | Project number of a Google Cloud project whose debuggees to list.
ddlProject :: Lens' DebuggerDebuggeesList (Maybe Text)
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
= lens _ddlAccessToken
(\ s a -> s{_ddlAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
ddlUploadType :: Lens' DebuggerDebuggeesList (Maybe Text)
ddlUploadType
= 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\`
-- (e.g., \`google.com\/intellij\/v1\`).
ddlClientVersion :: Lens' DebuggerDebuggeesList (Maybe Text)
ddlClientVersion
= lens _ddlClientVersion
(\ s a -> s{_ddlClientVersion = a})
-- | JSONP
ddlCallback :: Lens' DebuggerDebuggeesList (Maybe Text)
ddlCallback
= lens _ddlCallback (\ s a -> s{_ddlCallback = a})
instance GoogleRequest DebuggerDebuggeesList where
type Rs DebuggerDebuggeesList = ListDebuggeesResponse
type Scopes DebuggerDebuggeesList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud_debugger"]
requestClient DebuggerDebuggeesList'{..}
= go _ddlXgafv _ddlIncludeInactive _ddlUploadProtocol
_ddlProject
(Just _ddlPp)
_ddlAccessToken
_ddlUploadType
_ddlBearerToken
_ddlClientVersion
_ddlCallback
(Just AltJSON)
debuggerService
where go
= buildClient
(Proxy :: Proxy DebuggerDebuggeesListResource)
mempty