{-# 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.EntityTypes.List
(
ProjectsAgentEntityTypesListResource
, projectsAgentEntityTypesList
, ProjectsAgentEntityTypesList
, paetlParent
, paetlXgafv
, paetlLanguageCode
, paetlUploadProtocol
, paetlAccessToken
, paetlUploadType
, paetlPageToken
, paetlPageSize
, paetlCallback
) where
import Network.Google.DialogFlow.Types
import Network.Google.Prelude
type ProjectsAgentEntityTypesListResource =
"v2" :>
Capture "parent" Text :>
"entityTypes" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "languageCode" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudDialogflowV2ListEntityTypesResponse
data ProjectsAgentEntityTypesList = ProjectsAgentEntityTypesList'
{ _paetlParent :: !Text
, _paetlXgafv :: !(Maybe Xgafv)
, _paetlLanguageCode :: !(Maybe Text)
, _paetlUploadProtocol :: !(Maybe Text)
, _paetlAccessToken :: !(Maybe Text)
, _paetlUploadType :: !(Maybe Text)
, _paetlPageToken :: !(Maybe Text)
, _paetlPageSize :: !(Maybe (Textual Int32))
, _paetlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsAgentEntityTypesList
:: Text
-> ProjectsAgentEntityTypesList
projectsAgentEntityTypesList pPaetlParent_ =
ProjectsAgentEntityTypesList'
{ _paetlParent = pPaetlParent_
, _paetlXgafv = Nothing
, _paetlLanguageCode = Nothing
, _paetlUploadProtocol = Nothing
, _paetlAccessToken = Nothing
, _paetlUploadType = Nothing
, _paetlPageToken = Nothing
, _paetlPageSize = Nothing
, _paetlCallback = Nothing
}
paetlParent :: Lens' ProjectsAgentEntityTypesList Text
paetlParent
= lens _paetlParent (\ s a -> s{_paetlParent = a})
paetlXgafv :: Lens' ProjectsAgentEntityTypesList (Maybe Xgafv)
paetlXgafv
= lens _paetlXgafv (\ s a -> s{_paetlXgafv = a})
paetlLanguageCode :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlLanguageCode
= lens _paetlLanguageCode
(\ s a -> s{_paetlLanguageCode = a})
paetlUploadProtocol :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlUploadProtocol
= lens _paetlUploadProtocol
(\ s a -> s{_paetlUploadProtocol = a})
paetlAccessToken :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlAccessToken
= lens _paetlAccessToken
(\ s a -> s{_paetlAccessToken = a})
paetlUploadType :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlUploadType
= lens _paetlUploadType
(\ s a -> s{_paetlUploadType = a})
paetlPageToken :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlPageToken
= lens _paetlPageToken
(\ s a -> s{_paetlPageToken = a})
paetlPageSize :: Lens' ProjectsAgentEntityTypesList (Maybe Int32)
paetlPageSize
= lens _paetlPageSize
(\ s a -> s{_paetlPageSize = a})
. mapping _Coerce
paetlCallback :: Lens' ProjectsAgentEntityTypesList (Maybe Text)
paetlCallback
= lens _paetlCallback
(\ s a -> s{_paetlCallback = a})
instance GoogleRequest ProjectsAgentEntityTypesList
where
type Rs ProjectsAgentEntityTypesList =
GoogleCloudDialogflowV2ListEntityTypesResponse
type Scopes ProjectsAgentEntityTypesList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/dialogflow"]
requestClient ProjectsAgentEntityTypesList'{..}
= go _paetlParent _paetlXgafv _paetlLanguageCode
_paetlUploadProtocol
_paetlAccessToken
_paetlUploadType
_paetlPageToken
_paetlPageSize
_paetlCallback
(Just AltJSON)
dialogFlowService
where go
= buildClient
(Proxy :: Proxy ProjectsAgentEntityTypesListResource)
mempty