{-# 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.Docs.Documents.Get
(
DocumentsGetResource
, documentsGet
, DocumentsGet
, dgXgafv
, dgDocumentId
, dgUploadProtocol
, dgAccessToken
, dgUploadType
, dgSuggestionsViewMode
, dgCallback
) where
import Network.Google.Docs.Types
import Network.Google.Prelude
type DocumentsGetResource =
"v1" :>
"documents" :>
Capture "documentId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "suggestionsViewMode" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Document
data DocumentsGet =
DocumentsGet'
{ _dgXgafv :: !(Maybe Xgafv)
, _dgDocumentId :: !Text
, _dgUploadProtocol :: !(Maybe Text)
, _dgAccessToken :: !(Maybe Text)
, _dgUploadType :: !(Maybe Text)
, _dgSuggestionsViewMode :: !(Maybe Text)
, _dgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
documentsGet
:: Text
-> DocumentsGet
documentsGet pDgDocumentId_ =
DocumentsGet'
{ _dgXgafv = Nothing
, _dgDocumentId = pDgDocumentId_
, _dgUploadProtocol = Nothing
, _dgAccessToken = Nothing
, _dgUploadType = Nothing
, _dgSuggestionsViewMode = Nothing
, _dgCallback = Nothing
}
dgXgafv :: Lens' DocumentsGet (Maybe Xgafv)
dgXgafv = lens _dgXgafv (\ s a -> s{_dgXgafv = a})
dgDocumentId :: Lens' DocumentsGet Text
dgDocumentId
= lens _dgDocumentId (\ s a -> s{_dgDocumentId = a})
dgUploadProtocol :: Lens' DocumentsGet (Maybe Text)
dgUploadProtocol
= lens _dgUploadProtocol
(\ s a -> s{_dgUploadProtocol = a})
dgAccessToken :: Lens' DocumentsGet (Maybe Text)
dgAccessToken
= lens _dgAccessToken
(\ s a -> s{_dgAccessToken = a})
dgUploadType :: Lens' DocumentsGet (Maybe Text)
dgUploadType
= lens _dgUploadType (\ s a -> s{_dgUploadType = a})
dgSuggestionsViewMode :: Lens' DocumentsGet (Maybe Text)
dgSuggestionsViewMode
= lens _dgSuggestionsViewMode
(\ s a -> s{_dgSuggestionsViewMode = a})
dgCallback :: Lens' DocumentsGet (Maybe Text)
dgCallback
= lens _dgCallback (\ s a -> s{_dgCallback = a})
instance GoogleRequest DocumentsGet where
type Rs DocumentsGet = Document
type Scopes DocumentsGet =
'["https://www.googleapis.com/auth/documents",
"https://www.googleapis.com/auth/documents.readonly",
"https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/drive.file",
"https://www.googleapis.com/auth/drive.readonly"]
requestClient DocumentsGet'{..}
= go _dgDocumentId _dgXgafv _dgUploadProtocol
_dgAccessToken
_dgUploadType
_dgSuggestionsViewMode
_dgCallback
(Just AltJSON)
docsService
where go
= buildClient (Proxy :: Proxy DocumentsGetResource)
mempty