{-# 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.FireStore.Projects.Databases.Documents.Listen
(
ProjectsDatabasesDocumentsListenResource
, projectsDatabasesDocumentsListen
, ProjectsDatabasesDocumentsListen
, pddlXgafv
, pddlUploadProtocol
, pddlDatabase
, pddlAccessToken
, pddlUploadType
, pddlPayload
, pddlCallback
) where
import Network.Google.FireStore.Types
import Network.Google.Prelude
type ProjectsDatabasesDocumentsListenResource =
"v1" :>
Capture "database" Text :>
"documents:listen" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ListenRequest :>
Post '[JSON] ListenResponse
data ProjectsDatabasesDocumentsListen = ProjectsDatabasesDocumentsListen'
{ _pddlXgafv :: !(Maybe Xgafv)
, _pddlUploadProtocol :: !(Maybe Text)
, _pddlDatabase :: !Text
, _pddlAccessToken :: !(Maybe Text)
, _pddlUploadType :: !(Maybe Text)
, _pddlPayload :: !ListenRequest
, _pddlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsDatabasesDocumentsListen
:: Text
-> ListenRequest
-> ProjectsDatabasesDocumentsListen
projectsDatabasesDocumentsListen pPddlDatabase_ pPddlPayload_ =
ProjectsDatabasesDocumentsListen'
{ _pddlXgafv = Nothing
, _pddlUploadProtocol = Nothing
, _pddlDatabase = pPddlDatabase_
, _pddlAccessToken = Nothing
, _pddlUploadType = Nothing
, _pddlPayload = pPddlPayload_
, _pddlCallback = Nothing
}
pddlXgafv :: Lens' ProjectsDatabasesDocumentsListen (Maybe Xgafv)
pddlXgafv
= lens _pddlXgafv (\ s a -> s{_pddlXgafv = a})
pddlUploadProtocol :: Lens' ProjectsDatabasesDocumentsListen (Maybe Text)
pddlUploadProtocol
= lens _pddlUploadProtocol
(\ s a -> s{_pddlUploadProtocol = a})
pddlDatabase :: Lens' ProjectsDatabasesDocumentsListen Text
pddlDatabase
= lens _pddlDatabase (\ s a -> s{_pddlDatabase = a})
pddlAccessToken :: Lens' ProjectsDatabasesDocumentsListen (Maybe Text)
pddlAccessToken
= lens _pddlAccessToken
(\ s a -> s{_pddlAccessToken = a})
pddlUploadType :: Lens' ProjectsDatabasesDocumentsListen (Maybe Text)
pddlUploadType
= lens _pddlUploadType
(\ s a -> s{_pddlUploadType = a})
pddlPayload :: Lens' ProjectsDatabasesDocumentsListen ListenRequest
pddlPayload
= lens _pddlPayload (\ s a -> s{_pddlPayload = a})
pddlCallback :: Lens' ProjectsDatabasesDocumentsListen (Maybe Text)
pddlCallback
= lens _pddlCallback (\ s a -> s{_pddlCallback = a})
instance GoogleRequest
ProjectsDatabasesDocumentsListen where
type Rs ProjectsDatabasesDocumentsListen =
ListenResponse
type Scopes ProjectsDatabasesDocumentsListen =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/datastore"]
requestClient ProjectsDatabasesDocumentsListen'{..}
= go _pddlDatabase _pddlXgafv _pddlUploadProtocol
_pddlAccessToken
_pddlUploadType
_pddlCallback
(Just AltJSON)
_pddlPayload
fireStoreService
where go
= buildClient
(Proxy ::
Proxy ProjectsDatabasesDocumentsListenResource)
mempty