module Network.Google.Resource.Language.Documents.AnalyzeEntities
(
DocumentsAnalyzeEntitiesResource
, documentsAnalyzeEntities
, DocumentsAnalyzeEntities
, daeXgafv
, daeUploadProtocol
, daePp
, daeAccessToken
, daeUploadType
, daePayload
, daeBearerToken
, daeCallback
) where
import Network.Google.Language.Types
import Network.Google.Prelude
type DocumentsAnalyzeEntitiesResource =
"v1" :>
"documents:analyzeEntities" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AnalyzeEntitiesRequest :>
Post '[JSON] AnalyzeEntitiesResponse
data DocumentsAnalyzeEntities = DocumentsAnalyzeEntities'
{ _daeXgafv :: !(Maybe Xgafv)
, _daeUploadProtocol :: !(Maybe Text)
, _daePp :: !Bool
, _daeAccessToken :: !(Maybe Text)
, _daeUploadType :: !(Maybe Text)
, _daePayload :: !AnalyzeEntitiesRequest
, _daeBearerToken :: !(Maybe Text)
, _daeCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
documentsAnalyzeEntities
:: AnalyzeEntitiesRequest
-> DocumentsAnalyzeEntities
documentsAnalyzeEntities pDaePayload_ =
DocumentsAnalyzeEntities'
{ _daeXgafv = Nothing
, _daeUploadProtocol = Nothing
, _daePp = True
, _daeAccessToken = Nothing
, _daeUploadType = Nothing
, _daePayload = pDaePayload_
, _daeBearerToken = Nothing
, _daeCallback = Nothing
}
daeXgafv :: Lens' DocumentsAnalyzeEntities (Maybe Xgafv)
daeXgafv = lens _daeXgafv (\ s a -> s{_daeXgafv = a})
daeUploadProtocol :: Lens' DocumentsAnalyzeEntities (Maybe Text)
daeUploadProtocol
= lens _daeUploadProtocol
(\ s a -> s{_daeUploadProtocol = a})
daePp :: Lens' DocumentsAnalyzeEntities Bool
daePp = lens _daePp (\ s a -> s{_daePp = a})
daeAccessToken :: Lens' DocumentsAnalyzeEntities (Maybe Text)
daeAccessToken
= lens _daeAccessToken
(\ s a -> s{_daeAccessToken = a})
daeUploadType :: Lens' DocumentsAnalyzeEntities (Maybe Text)
daeUploadType
= lens _daeUploadType
(\ s a -> s{_daeUploadType = a})
daePayload :: Lens' DocumentsAnalyzeEntities AnalyzeEntitiesRequest
daePayload
= lens _daePayload (\ s a -> s{_daePayload = a})
daeBearerToken :: Lens' DocumentsAnalyzeEntities (Maybe Text)
daeBearerToken
= lens _daeBearerToken
(\ s a -> s{_daeBearerToken = a})
daeCallback :: Lens' DocumentsAnalyzeEntities (Maybe Text)
daeCallback
= lens _daeCallback (\ s a -> s{_daeCallback = a})
instance GoogleRequest DocumentsAnalyzeEntities where
type Rs DocumentsAnalyzeEntities =
AnalyzeEntitiesResponse
type Scopes DocumentsAnalyzeEntities =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient DocumentsAnalyzeEntities'{..}
= go _daeXgafv _daeUploadProtocol (Just _daePp)
_daeAccessToken
_daeUploadType
_daeBearerToken
_daeCallback
(Just AltJSON)
_daePayload
languageService
where go
= buildClient
(Proxy :: Proxy DocumentsAnalyzeEntitiesResource)
mempty