{-# 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.DialogFlow.Projects.Agent.Intents.List
(
ProjectsAgentIntentsListResource
, projectsAgentIntentsList
, ProjectsAgentIntentsList
, pailParent
, pailXgafv
, pailLanguageCode
, pailUploadProtocol
, pailAccessToken
, pailUploadType
, pailIntentView
, pailPageToken
, pailPageSize
, pailCallback
) where
import Network.Google.DialogFlow.Types
import Network.Google.Prelude
type ProjectsAgentIntentsListResource =
"v2" :>
Capture "parent" Text :>
"intents" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "languageCode" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "intentView" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudDialogflowV2ListIntentsResponse
data ProjectsAgentIntentsList = ProjectsAgentIntentsList'
{ _pailParent :: !Text
, _pailXgafv :: !(Maybe Xgafv)
, _pailLanguageCode :: !(Maybe Text)
, _pailUploadProtocol :: !(Maybe Text)
, _pailAccessToken :: !(Maybe Text)
, _pailUploadType :: !(Maybe Text)
, _pailIntentView :: !(Maybe Text)
, _pailPageToken :: !(Maybe Text)
, _pailPageSize :: !(Maybe (Textual Int32))
, _pailCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsAgentIntentsList
:: Text
-> ProjectsAgentIntentsList
projectsAgentIntentsList pPailParent_ =
ProjectsAgentIntentsList'
{ _pailParent = pPailParent_
, _pailXgafv = Nothing
, _pailLanguageCode = Nothing
, _pailUploadProtocol = Nothing
, _pailAccessToken = Nothing
, _pailUploadType = Nothing
, _pailIntentView = Nothing
, _pailPageToken = Nothing
, _pailPageSize = Nothing
, _pailCallback = Nothing
}
pailParent :: Lens' ProjectsAgentIntentsList Text
pailParent
= lens _pailParent (\ s a -> s{_pailParent = a})
pailXgafv :: Lens' ProjectsAgentIntentsList (Maybe Xgafv)
pailXgafv
= lens _pailXgafv (\ s a -> s{_pailXgafv = a})
pailLanguageCode :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailLanguageCode
= lens _pailLanguageCode
(\ s a -> s{_pailLanguageCode = a})
pailUploadProtocol :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailUploadProtocol
= lens _pailUploadProtocol
(\ s a -> s{_pailUploadProtocol = a})
pailAccessToken :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailAccessToken
= lens _pailAccessToken
(\ s a -> s{_pailAccessToken = a})
pailUploadType :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailUploadType
= lens _pailUploadType
(\ s a -> s{_pailUploadType = a})
pailIntentView :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailIntentView
= lens _pailIntentView
(\ s a -> s{_pailIntentView = a})
pailPageToken :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailPageToken
= lens _pailPageToken
(\ s a -> s{_pailPageToken = a})
pailPageSize :: Lens' ProjectsAgentIntentsList (Maybe Int32)
pailPageSize
= lens _pailPageSize (\ s a -> s{_pailPageSize = a})
. mapping _Coerce
pailCallback :: Lens' ProjectsAgentIntentsList (Maybe Text)
pailCallback
= lens _pailCallback (\ s a -> s{_pailCallback = a})
instance GoogleRequest ProjectsAgentIntentsList where
type Rs ProjectsAgentIntentsList =
GoogleCloudDialogflowV2ListIntentsResponse
type Scopes ProjectsAgentIntentsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/dialogflow"]
requestClient ProjectsAgentIntentsList'{..}
= go _pailParent _pailXgafv _pailLanguageCode
_pailUploadProtocol
_pailAccessToken
_pailUploadType
_pailIntentView
_pailPageToken
_pailPageSize
_pailCallback
(Just AltJSON)
dialogFlowService
where go
= buildClient
(Proxy :: Proxy ProjectsAgentIntentsListResource)
mempty